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Preface 



This publication describes the program structure of the two indexed sequential access methods: QISAM 
(queued indexed sequential access method) and BISAM (basic indexed sequential access method). 

The manual is divided into seven sections: 

Section 1: Introduction is an overview of indexed sequential access method organization and an overall 
description of ISAM operations. 

Section 2: Method of Operation comprises four parts: 

1. ISAM Common Open, Common Close, and Validation Modules--a discussion of the common 
processing operations for QISAM Scan, QISAM Load, and BISAM. 

2. Queued Indexed Sequential Access Method, Load Mode--a discussion of the operations and routines 
unique to creating data sets with QISAM. 

3. Queued Indexed Sequential Access Method, Scan Mode-a discussion of the operations and routines 
involved in retrieving and updating records sequentially using QISAM. 

4. Basic Indexed Sequential Access Method--a discussion of the techniques and operations used in the 
direct storage and retrieval of records in an indexed sequential data set. 

Section 3: Program Organization contains flowcharts of individual ISAM routines. 

Section 4: Directory contains a table of ISAM modules, by type, and module selection tables for QISAM 
load mode, open executors, and close executors. 

Section 5: Data Areas contains descriptions of data management control blocks and work areas used by 
ISAM. 

Section 6: Diagnostic Aids summarizes appendage, asynchronous, and exception codes set and used by 
ISAM routines. 

Section 7: Appendixes supplements this manual and program listings with a description of ISAM indexes 
(Appendix A) and the ISAM channel programs (Appendix B). 

Prerequisite Publications 

Knowledge of the information in the following publications is required for an understanding of this 
manual: 

IBM System/360 Operating System: 

Introduction to Control Program Logic, Program Logic Manual, GY28-6605 

Supervisor Services, GC28-6646 

Data Management Services, GC26-3746 
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Recommended Reading 

The following publications provide useful information: 

IBM System/ 360 Operating System: 

Supervisor and Data Management Macro Instructions, GC28-6647 

Direct Access Device Space Management, Program Logic Manual, GY28-6607 
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Introduction 



The indexed sequential access methods (ISAM) are data management techniques used for storing 
indexed sequential data sets on direct access devices, or for retreiving those data sets. 

A detailed description of the structure of an indexed sequential data set is provided in Appendix A of 
this manual. Detailed information on how to create and process an indexed sequential data set is in the 
publication, IBM System/360 Operating System: Data Management Services, GC26-3746. 

ISAM routines are part of the IBM System/360 Operating System control program. They are grouped 
into modules that are placed in the supervisor call (SVC) library during system generation. Only the 
modules needed to perform those functions required by a processing program are loaded into main storage 
from the system residence volume. Wherever possible, all processing programs use the same copy of a 
module. 

There are two indexed sequential access methods: queued indexed sequential access method (QISAM) 
and basic indexed sequential access method (BISAM). 

QISAM has routines for two modes: load mode routines, to create an indexed sequential data set and to 
add records to the end of a data set; and scan mode routines, to retrieve and update records from a 
previously created data set. 

BISAM routines provide direct storage and retrieval of any logical record by its record key. The BISAM 
routines also permit records to be updated-in-place. The BISAM Write-Key-New (WRITE KN) macro 
instruction routine provides the user a means of inserting new records into an indexed sequential data set. 

Routines within QISAM load mode, QISAM scan mode, and BISAM are divided into three phases of 
execution: the open phase, the processing phase, and the close phase. 

Open Phase 

When a data control block (DCB) is opened to process an indexed sequential set, the open routine of 
input/output support gives control to ISAM open executors. (The system input/output support routines are 
described in the publication, IBM System/ 360 Operating System: Input /Output Support (Open/Close /EOV), 
Program Logic Manual, GY28-6609. 

The ISAM open executors are modules that perform the initial ISAM processing. Open processing is 
done in two stages: the first or common open stage which is executed for both QISAM and BISAM, and the 
second or mode-oriented stage which is executed by separate open modules for QISAM load mode, QISAM 
scan mode, and BISAM. 

The common open executors receive control from the open routine of I/O support when it is 
determined that an indexed sequential access method is to be used. The same executors are used for both 
QISAM and BISAM. These common open executors determine which mode of ISAM has been specified in 
the processing program and then select the required ISAM modules from the system residence library. The 
common open executors determine storage requirements for the access method routines and also begin the 
building of control blocks and control lists for subsequent use by the processing and closing phases. When 
these operations are completed, the common open executors transfer control to the mode oriented, second 
stage open executors. 

The common open executors are described in detail in the first part of the Method of Operation section 
of this manual; the mode-oriented executors are discussed in the respective QISAM and BISAM parts. 
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Processing Phase 

During the processing phase of indexed sequential access method operations, several types of routines 
are invoked: these include input/output macro instruction routines (in some cases, both privileged and 
nonprivileged) and their related channel programs, channel program appendage routines, asynchronous 
routines, and buffer management routines. Control blocks, work areas, and queues are used by the 
processing phase routines and the corresponding channel programs. 

When an input or output macro instruction is encountered in the processing program, ISAM routines 
construct the needed channel programs for processing the data and request the I/O supervisor to schedule 
those channel programs for execution. If an error occurs during the execution of the channel program, the 
ISAM appendage and asynchronous routines inform the processing program of the error. In the processing 
phase of ISAM, buffers are allocated, queued and scheduled (buffer management); and indications of 
whether or not the channel programs have been executed successfully are given through the buffer 
management routines and the appendage routines. 

Processing Routines 

The processing routines in ISAM select and complete the channel programs which store, process, and 
retrieve an indexed sequential data set. These routines do various operations and construct different 
channel programs depending on the characteristics of the data to be processed, the type of macro 
instruction issued by the processing (user) program, and the indexed sequential access method (or mode) 
being used. 

For QISAM load mode, the primary processing routine is the PUT macro instruction routine. The load 
mode PUT routine is used in creating or resuming the creation (see Resume Load) of an indexed sequential 
data set. 

In QISAM scan mode, five macro instruction routines are used in data retrieval and updating; the scan 
mode routines are described under Scan Mode Processing Phase in the Method of Operation section. 

The BISAM processing routines consist of several variations of the basic READ and WRITE macro 
instruction routines. In BISAM, both nonprivileged and privileged routines are used to facilitate channel 
program execution. 

The QISAM load, QISAM scan, and BISAM processing routines are described fully in those respective 
sections of this manual. 

Appendage Routines 

The appendages are routines entered from the Input/Output supervisor when a channel program is to be 
started or when a channel program ends. The appendage routine determines if additional processing is 
necessary before an input/output operation has started or after it has been completed. For example, more 
than one channel program may be needed to satisfy completely a specific input or output request from the 
processing program. In such a case, the channel appendage would keep track of the channel programs 
needed and assist in initializing and scheduling these channel programs sequentially. Appendages may also 
schedule asynchronous routines to handle the additional processing of an I/O request. (Appendages and 
asynchronous routines are described in the publication, IBM System/360 Operating System: System 
Programmer's Guide, GC28-6650.) 

Rotational Position Sensing Start I/O Appendages 

The Rotational Position Sensing (RPS), start I/O (SIO) appendage routines decrease channel time by 
disconnecting the channel from RPS devices whenever possible. This is done by inserting CCW (channel 
command word) slots in the various ISAM channel programs. 



When an ISAM data set is being used with an RPS device, the RPS start I/O appendages will modify the 
channel command word slots dynamically to either a NOP, Set Sector, Read Sector, or a TIC, depending on 
the device type and the channel program. 

Three RPS SIO appendages are used, one each for QISAM scan, and load modes, and one for BISAM. 
These SIO appendages will convert non-RPS channel programs to RPS channel programs and vice versa, as 
necessary. 

Conversion of a non-RPS channel program to an RPS channel program involves: 

• conversion of the CCW slots from TICs or NOPs to Read or Set Sectors, 

• possibly modifying a CCW's command chaining flag so that the RPS CCWs are executed, 

• interposing an RPS channel program prefix when the channel program starts with a search ID of five 
bytes, and 

• setting up sector values where necessary. 

NOTE: The Rotational Position Sensing (RPS) devices referred to in this manual are the IBM Models 3330 
and 2305 Direct Access Storage Devices. 



Set up non-RPS 
channel program 



No 




Yes 



Set up 

channel program 

for RPS 
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Update sector value 



Figure 1. SIO Appendage for ISAM RPS 



Asynchronous Routines 

Asynchronous routines are used in QISAM scan mode and in BISAM to perform any additional 
processing of an I/O request required when a channel program ends. 

Complete processing of an I/O request may require several channel programs. The asynchronous 
routines set these up and schedule them as required. Also, when I/O request processing is complete, 
whether satisfactorily or in error, the completion must be posted. These routines do the posting. 
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The appendage routines of QISAM scan mode and BISAM select and schedule the appropriate 
asynchronous routines. 

Further description of the scan mode asynchronous routines can be found in the discussion of Scan 
Mode Appendages. For more detail about the BISAM asynchronous routines, see Section 2, BISAM 
Appendage and Asynchronous Routines. 

Buffer Handling Routines 

Buffer handling or buffer management routines are provided in both modes of QISAM and, optionally, 
in BISAM. 

In QISAM load mode, the PUT routine has two subsidiary buffer handling routines: the beginning of 
buffer (BOB) routine and the end of buffer (EOB) routine. The BOB and EOB routines perform both the 
PUT move mode and PUT locate mode processing. 

In move mode, the PUT macro instruction routine and its buffer handling routines move an output 
record from the user work area or input area to an output buffer. 

In locate mode, the PUT macro instruction routine and its subsidiary routines give the address of an 
output buffer area to the user; the user must move the record to the buffer. 

In QISAM scan mode, five buffer queues are used to control input/output operations. The queuing of 
buffers is handled primarily by the GET macro instruction routine and its subsidiary routines— the 
scheduling routine and the end of buffer routine. 

In scan mode, a copy of channel program 22 is allocated to each buffer. The buffers are manipulated 
among the queues and scheduled for I/O operations according the macro instructions issued in the 
processing program. Refer to the discussion of "Buffer Control Techniques" in Section 2, QISAM Scan 
Mode, for a description of the buffer queues. 

Dynamic buffering may be used in BISAM to allow the queuing of multiple read requests. A buffer is 
automatically acquired from a buffer pool and assigned to the request just before data transfer begins. The 
buffer is returned automatically to the buffer pool when its contents are written, or it is returned under 
programmer control with the FREEDBUF (Free Dynamic Buffer) macro instruction. Dynamic buffering 
requires relatively fewer buffers since the read requests waiting in the queue do not monopolize buffers. 

Close Phase 

When a DCB for an ISAM data set is closed, the close routine of input/output support gives control to 
ISAM close executor modules which terminate processing for the particular mode of ISAM being used. As 
do the open executors, the close executors have two stages: (1) the mode-oriented stage (i.e. the load mode, 
scan mode, or BISAM close executors), and (2) the common close stage executor. 

When invoked by the CLOSE macro, the input/output support routines first determine that an ISAM 
data set is being processed. The I/O support routines then examine the DCBMACRF field in the DCB to 
determine which mode of ISAM is in use and which mode-oriented close executor should be given control. 
The close executors for load mode, scan mode, and BISAM are described in each of those sections 
respectively. Figure 4 in Section 2 shows the general flow of operations in the ISAM common close 
executor-module IGG0202D. 
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ISAM Common Open, Common Close and Validation Modules 



There are three distinct indexed sequential access methods: QISAM load mode, QISAM scan mode, and 
BISAM. Each comprises a group of modules. 

In addition to the three separate groups of modules, certain ISAM modules are used for both QISAM 
and BISAM processing. In particular, the three common open executor modules (IGG0192A, IGG0192B, 
and IGG0192C), the common close executor module (IGG0202D), and the validation open executor 
modules (IGG01920, IGG01922 and IGG01950) are used in both modes of QISAM and in BISAM. 

This section of the manual describes the common open and common close executory in detail, and 
generally describes the validation modules which are further detailed in the discussion of QISAM (load, 
scan) and BISAM. 

The ISAM Common Open Executors 

The first stage, or common, open executors receive control from the open routine of I/O support. A 
pre-executor module of the I/O support routines (module IGG0190W) will: 

(a) read in the additional DSCBs for this data set (if multivolume ) ; 

(b) test first volume for a format 2 DSCB; 

(c) check DSCBs for ascending order on the same sequence in which space was allocated, and; 

(d) transfer control (XCTL) to the first ISAM open executor. 

The common executors, upon completion, pass control to second stage open executors required to 
initialize the specific form of QISAM or BISAM called for by the processing program. 

The DCB Integrity Feature: ISAM routines maintain DCB integrity by preserving pertinent DCB fields and 
maintaining the current status of these fields during processing. The DCB integrity feature is invoked for 
the user whenever he opens with DISP=SHR. 

This feature prevents multiple tasks, when sharing the same indexed sequential data set, from altering 
the data set without updating its attributes in the DCB. This could happen if one of the tasks opens the 
data set for Write-Key-New and modifies an area so as to change various DCB fields. For example, adding 
records to the last prime data track would result in updating DCBLPDA and possibly DCBLIOV. Another 
task with concurrent access to the data set in QISAM scan mode would not process the added records. 

With the DCB integrity feature, any change in the DCB caused by a modification of the data set, will 
cause a corresponding change in all DCBs currently open for that particular data set. An ISAM common 
open module, IGG0192C, determines whether another ISAM data set has previously been opened, and if 
not, obtains space for a DCB field area (DCBFA) associated with each ISAM data set that is opened. The 
DCB field area is obtained (by a GETMAIN from subpool 255) by the ISAM open executor module, 
IGG0192C, when a data set is opened for the first time. 

The DCBFA contains the DCB information that can be changed while processing the data set and is 
pointed to by all DCBs opened for that data set. The DCB fields requiring this updating are DCBLIOV, 
DCBLPDA, DCBNOV, DCBNOREC, DCBNREC, DCBRORG1, DCBRORG2, DCBRORG3, DCBST, and 
DCBTDC. These fields require a 36-byte DCB field area. 
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During processing of a data set opened for WKN or RU, ISAM routines gain access to the associated 
DCB fields and modify them from the DCBFA. This eliminates the possibility of a user inadvertently and 
incorrectly modifying these fields. 

Open Phase Organization 

The ISAM open executors are each 1024 bytes in length, and overlay each other in the transient area. 

The three common open executor modules are IGG0192A, IGG0192R, and IGG0192C. The flow of 
operations among these executors and to the second stage open executors is depicted in Figure 2 below. 
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Figure 2. ISAM Open Flow of Control 
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NOTE: The second stage open executors return control to the open routine of I/O support, which returns 
control to the processing program. 

Common open executor IGG0192A receives control from the open routine of input/output support. 
The primary functions of IGG0192A are: 

1. Module IGG0192A calculates the space needed for the DEB. (16 bytes are allocated for the DEB 
prefix, and 32 bytes for the basic section of the DEB. The number of extents indicated by the user's 
data definition statements is picked up from the DSCBs (the data sets allocated must be "on-line"). 
The number of extents, plus one, is multiplied by 16. Thus, each extent has 16 bytes. 

2. After the determination of the space needed for the DEB, IGG0192A executes a GETMAIN for the 
DEB. 

3. IGG0192A places a pointer to the DEB in the DCB and a pointer to the DCB in the DEB. 

4. IGG0192A sets the pointer to the UCB in each extent (may be from 1 to 16 extents per volume.) 
The UCB in each extent points to the direct access device where the data set (or extent) resides. 

5. Checks the devices allocated to the data set to see if these devices have the Rotational Position 
Sensing (RPS) feature and set a bit in DXCCW1+4 accordingly. If bit 0, 1, or 2 are on and if the 
data set is being opened for either QISAM scan mode or BISAM, a count of one (1) is added to the 
module count (DEBNMSUB) in anticipation of loading the necessary RPS Start I/O appendage. (See 
the description of these bits in Figure 3, DEBRPSID. 

After the GETMAIN has been performed for the DEB, IGG0192A will move the byte at DXCCWL+4 to 
DEBISAD in the DEB; the result will be that DEBISAD will have its high order byte cleared to zeroes if no 
RPS devices are being used. If RPS devices are being used the bit will be set as described in Figure 3. 



Field 


Bit 


Setting 


Meaning 


DEBRPSID 



1 
2 
3 


1 
1 
1 
1 


PRIME is on an RPS device 
INDEX is on an RPS device 
OVERFLOW is on an RPS device 
An SIO appendage has been loaded 
(set by IGGQ192K) 



Figure 3. RPS Identification Field in the Data Event Block 



Upon completion, IGG0192A transfers control to the common open executor module IGG0192B. The 
primary functions of IGG0192B are outlined below: 

1. IGG0192B uses the DCBBUFNO and DCBBUFL fields (plus eight bytes for a control field) to 
develop the buffer pool. 

2. Develops the Buffer Control Block (BCB), using DCBBUFNO and DCBBUFL, and uses a GETMAIN 
from subpool 250 for the BCB space. 
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3. IGG0192B also calculates the buffer lengths (using DCBBLKSIZE) and places the calculation in the 
DCBBUFL field (unless the user sets up his own buffers). 

4. The DCBUFNO (number of buffers) field is checked, and if none have been specified, two buffers 
are allocated for the data set. 

5. If the computed buffer length is inadequate, IGG0192B schedules an ABEND with a completion 
code of hexadecimal 37. 

6. IGG0192B then returns to the initialization of the DEB-initializing the extent entries with the 
address and count fields already established in the DEB. 

The DEB will now contain the UCB pointer, the starting addresses of the extents (cylinder, track, 
and head), and the number of cylinders per extent. 

ISAM common open executor IGG0192B passes control to common open module, IGG0192C. The 
functions of IGG0192C are outlined below: 

1. IGG0192C frees the main storage space occupied by all data set control blocks (DSCBs) except the 
format 1 and the format 2 DSCBs. 

2. Reset the DCBDEVT (device type) field, if necessary. 

3. If the data set is to be shared by two or more tasks (as indicated with a DISP=SHR parameter in the 
JCL), IGG0192C executes a GETMAIN from subpool 255 for the DCBFA (DCB Field Area); 
unless, the DCBFA was previously obtained for this same data set. 

The Validation Modules 

Modules IGG01920, IGG01922, and IGG01950 are open executors used to validate and maintain DSCB 
and DCB fields for resume load, scan mode, and BISAM. These modules are not considered common open 
executors since an initial load (or reload) in load mode does not cause execution of the validation modules. 

The operations done in IGG01920, IGG01922, and IGG01950 are described in detail below. Thereafter 
the validation modules are referred to in the load, scan and BISAM discussions. 

Module IGG01922 runs in tandem with module IGG01920 when that validation module is selected. 
Since the functional description of IGG0122 would be essentially the same as that for IGG01920, it has not 
been described here. 

iDad Mode Open Executor IGG01920 (executed with IGG01922): 

1. Validate and reset, if necessary, the following fields in the format 2 DSCB: 

(a) DS2LPRAD — the address of the last record in the prime data area. This address will be in the 
form MBBCCHHR and is subsequently moved to the DCBLPDA field. 

(b) DS2LOVAD — the address of the last record in the current independent overflow area. This 
address will be in the form of an MBBCCHHR address and is subsequently moved to the 
DCBLIOB field. 

(c) DS2BYOVL — the number of bytes remaining on the current independent overflow track. This 
count is later moved to the DCBNOV field. 
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(d) DS2RORG2 — the number of tracks remaining in the independent overflow area; subsequently 
merged into the DCBR0RG2 field. 

(e) DS20VRCT — the number of records in all overflow areas; merged to DCBNOREC. 
These fields may be incorrect if the data set was previously closed improperly. 

Load Mode Open Executor IGG01950: 

IGG01950 is the VLR counterpart to module IGG01920. It is the first validation module entered when 
variable length records are being added. 

This module may not be executed, although it will be entered, if the user has specified that the data set 
may be shared by other tasks (DISP=SHR). It will not be executed in that case because another DCB may 
have already been opened for the data set and a DCBFA (DCB Field Area) already set up for the purpose of 
maintaining the DCB fields. 

1. IGG01950 merges these end pointers from the format 2 DSCB to the DCB: 

(a) DCBLPDA — the direct access device address of the last record in the prime data area. 

(b) DCBLIOV — the direct access device address of the last record written in the independent 
overflow area. 

2. Module IGG01950 also adjusts, when necessary, the independent overflow control information in 
the DCB: 

(a) DCBRORG2 — the tracks remaining in independent overflow. 

(b) DCBNOV — the bytes remaining on current overflow track. 

(c) DCBNOREC — the number of logical records in the overflow area. 

Common Close Phase Organization 

Like the open executors, the close executors are 1024 bytes in length and overlay each other in the 
transient area. The common close executor module is module IGG0202D; its functions are as follows: 

1. Obtain main storage space for the format 2 DSCB. 

2. Read and update the format 2 DSCB and write it back into the volume table of contents (VTOC). 

3. If operating with QISAM load mode, free main storage used for the load mode work area and 
channel programs. 

4. If the DCB being closed is the last one open on the data set, free the DCB Field Area (DCBFA). 

5. If initial load, set bit 2 of DCBST (DCB Status Byte field). 
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Figure 4. ISAM Common Close Executor 
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The flow of control through the I/O support routines and the stages of ISAM close executors is shown in 
Figure 5. 
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Figure 5. Flow of Control through the Close Executors 
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Queued Indexed Sequential Access Method Load Mode 



The load mode of QISAM is used to create (or recreate) indexed sequential data sets and may also be 
used to reopen existing data sets to add records to the end of the prime data area. Creating a data set is 
called initial loading-, recreating one is called reloading) and reopening a data set is called resume loading. 
(See Data Management Services, GC26-3746, for a user-oriented discussion of resume loading.) 

Since it is part of the queued access method, load mode handles all required buffering, blocking, and 
I/O activity synchronization. 

There are three phases of QISAM load mode routines: 

1 . The Open Phase 

2. The Processing Phase 

3. The Close Phase 

The open phase routines include executor modules that perform tasks needed to open a data set, 
initialize data areas, and prepare to load other routines for the processing phase. The open phase executors 
receive control from the open routine of I/O support. The processing phase routines include the put routine 
(which receives control and is executed when a PUT macro instruction is issued in the user's program), 
appendages, and channel programs. The processing phase routines perform the actual access method 
functions in QISAM load mode. The close phase routines perform functions essential to closing the indexed 
sequential data set when all processing phase operations are finished. The close phase routines are executor 
modules that receive control from the close routine of I/O Support. 

Load Mode Open Phase Operations 

There are two stages of QISAM load mode open executors. The first stage executors are entered for all 
indexed sequential access methods and are referred to as the common open executors (See Figure 2). The 
second stage open executors for load mode receive control from the common open executors. These second 
stage executors are entered for QISAM load mode only. They perform initialization operations required for 
load mode processing, whether creating, reloading, or resume loading the data set, with either variable or 
fixed length records. 

The first second-stage executor for load mode (module IGG01921) is entered for both initial and 
resume loading to provide main storage space for the load mode work area. ISLCOMON is the load mode 
DCB work area and contains the input/output blocks (IOBs), location tables, counters and various pointers. 
The load mode processing modules and channel programs refer to and modify the ISLCOMON area. 

The IOBs, tables, and pointers in ISLCOMON are used in scheduling, controlling, and checking the load 
mode processing operations, filling the buffers with records, loading these records into the ISAM data set 
and refering to these records and their locations in the various ISAM indexes. 

Besides obtaining main storage space for an initializing ISLCOMON, the beginning open executor for 
load mode determines if the user intends to create a new ISAM data set (initial load), to reload an old data 
set, or to reopen an existing data set. 

If the data set is being loaded on a direct access device with the Rotational Position Sensing (RPS) 
feature, module IGG01921 provides main storage space for an eight-byte larger DCB work area 
(ISLCOMON) than is the case when non-RPS devices are being used. (See the Data Area section of this 
manual for a description of the ISLCOMON area.) Four of the eight bytes are used for the sector values in 
dynamically modifying the channel programs for RPS (See Section 2 for a discussion of the RPS start I/O 

QISAM Load Mode Operation 17 



appendages.) The other four bytes are used by the load mode variable-length-record processing modules for 
track capacity calculations in the prime data area. 

Initial Load or Reload Open Operations 

For the initial load or reload of an ISAM data set, the ISAM load mode open executors structure, 
allocate space for, and format the prime data area, the track index area, and, if specified, the high-level 
index areas. An initial load open module (IGG0192G) also initializes fields in the ISLCOMON area to be 
used by the load mode buffering routines. 

The initial load or reload open routines of the load mode open executors also determine whether or not 
the last track of the track index for each cylinder will contain one or more data records, (i.e., shared track). 
If there is to be a shared track, temporary records representing each track index entry (preformat) must be 
written so the first data records can be written before the actual index entries are developed and written. 
Refer to the descriptions of modules IGG0192D and IGG0192S in the discussion of Load Mode Open 
Phase Organization for further information on the preformatting of shared tracks. 

Resume Load Open Operations 

When opening an existing ISAM data set to add records at the end of the prime data area (resume load), 
the load mode open executors for resume load must insure that the addressing control fields for prime, 
index, and overflow records are accurate and usable for locating the last records in each area and loading 
additional records into the data set. Control fields for buffering and record-moving logic must be initialized 
in accordance with the dimensions of the already created data set; this is also done as part of the resume 
load open operations. (Refer to Resume Load Open Organization for further details.) 

Full Track Index Write Open Operations 

The full track index write feature of load mode allows for accumulating and writing a full track of track 
index entries as a group rather than singly (refer to Data Set Organization in Appendix A). The track index 
entries are accumulated in the Track Index Save Area (TISA) shown in Section 5. A full track of track 
index is written into the track index area of the data set when the TISA is full, when end-of-cylinder is 
reached, or when the data set is closed. 

When the user opens the DCB for load mode and specifies the full track index write option 
(DCBOPTCD=U), the load mode open phase executors perform operations especially for the initialization 
of the full track index write feature. These operations include acquiring the track index save area, and 
initializing Channel program 20 to write the track index entries from the TISA to the direct access storage 
device. 

The Final Load Mode Open Phase Operations 

The final load mode open phase operations are performed for all load mode open options. The final 
load mode open executors: 

1. Load the needed ISAM Load Mode modules containing the appropriate PUT macro routines, 
appendages, and channel programs. 

2. Initialize channel program 19 for preformatting shared track (see Initial Load Options) in Area Z of 
ISLCOMON when required. 

3. Initialize channel programs 20 and 21 for writing track and high-level index entries. 
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Load Mode Open Phase Organization 

Load Mode Open Executor IGG01921 

As indicated in the Load mode open operations discussion, the first Load mode open executor, module 
IGG01921, is entered for both initial and resume load. The operations for this module are outlined below. 

1. Obtain main storage space for the load mode work area (ISLCOMON), and set the work area 
pointers. 

2. Fill in the load mode Input/Output Blocks (IOBs) in ISLCOMON. 

3. Determine from the DISP parameter the user's intent to reload the data set; reset the DCB status 
bits if necessary, and reinitialize the data set in accordance with DCB parameters supplied in the DD 
statements. 

4. Determine if track capacity of the independent overflow device is sufficient to contain the 
maximum length record for an overflow chain (the longest possible record in an overflow chain. 

5. If the data set is to be loaded on an RPS device, IGG01921 will execute a GETMAIN for a load 
mode work area eight (8) bytes larger than the normal ISLCOMON area. 

Four of these extra bytes are used for sector values in CP18, CP19, CP20, and CP21, respectively. 
Two of them are used in track capacity calculations for the last record overhead. The other two 
bytes are used for the non-last record overhead. (See Section Eight for further description of these 
eight bytes in the DCB work area.) 

The last two halfwords of these eight bytes described above are used in the processing modules for 
variable length record (VLR) in load mode; these two halfwords are used to calculate the VLR track 
capacity of prime data records on RPS devices. 

Upon completion of module IGGO 1921, the selection of modules to continue load mode open operations 
depends on whether initial or resume loading is to take place: this is indicated in the flow diagram below 
which shows the flow of control through the load open executors. 
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Initial Load Organization 

If an indexed sequential data set is to be created, the first load mode open executor (IGG01921) passes 
control to module IGGO 1 9 2D. 

Load Executor IGGO 19 2D 

IGG0192D calculates several control fields needed in load mode processing. Listed below are some of 
the primary functions performed by module IGGO 19 2D in structuring the prime data area and calculating 
various DCB fields needed to allocate direct access device storage for track, cylinder, and master indexes: 

1. Determines if the higher levels of index are to be used and where these are to be located. 

2. Determines whether the track index will share a track with prime data records ("shared track"). 

3. Calculates and sets the DCBHIRPD field (highest record that can be written in the prime area), and 
the DCBHIROV field (highest record of overflow). 

4. Uses the DEBFIEAD field (indicates if high-level indexes are to be used and set from the user 
specified OPTCD parameter in the DCB) to determine whether high-level indexes are to be used. If 
the user has not specified an independent index area, the DEBNOEE field is used to determine 
whether an independent overflow area has been specified. 

5. Module IGG0192D also sets indicators to specify whether independent index, independent 
overflow, or the. prime area is to be used for the high-level indexes when these are requested by the 
user. The indicators are passed to module IGG0192E when high-level indexes are reqired. Module 
IGGO 19 2D transfers control to module IGG0192F if high-level indexes are not needed. 

6. Before transferring control to either module IGG0192E or module IGG0192F, module IGG0192D 
establishes several fields in the DCB work area, ISLCOMON, to be used by other open modules. 

7. Determines if shared tracks need to be preformatted by calculating the number of index entries 
required per cylinder and dividing by the number of entries which will fit on a track, to yield 
number of entries on the final track and the portion of the track available for data. 

8. If an RPS device is being used, IGG0192D treats the cylinder value on the device as a halfword. It 
also refers to the two halfwords for RPS, defined in IGGO 1921 (described above), rather than to the 
I/O device table for its track capacity calculations for prime data records. A similiar field is used 
during open processing for the analogous calculations on the index device. However, this field is 
already defined in the DSECT for the QISAM load mode work area and is returned to its normal 
usage at the completion of open operations. The index back-up routine in IGG0192D sets bits 1 or 
2 of DEBRPSID if necessary, as does IGG0195D. 

The Load Mode Open Executor IGG0192E 

If in the initial loading (creation) or reloading of an ISAM data set, cylinder or master indexes are 
specified, then executor IGG0192D will pass control to module IGG0192E. The functions of IGG0192E 
during creation of the data set are outlined below. 

1. IGG0192E structures the high-level indexes, using information from the data fields established by 
module IGGO 192D. 

2. Formats the cylinder and/or master indexes in the independent index, independent overflow, or 
prime areas depending upon the user's specifications (in his DCB and data definition statements). 
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Load Mode Open Executor IGG0192F 

If cylinder or master indexes are not required in the initial load for creating an ISAM data set, then 
module IGG0192D will pass control directly to module IGG0192F, instead of IGG0192E. Executor 
IGG0192F might also receive control from IGG0192E after IGG0192E has structured the high-level index 
areas. The primary functions of IGG0192F are: 

1. Module IGG0192F initializes several index location table pointers (the ISLIXT fields in 
ISLCOMON) to point to high-level indexes if these indexes have been created by module 
IGG0192E. 

2. Initializes pointers in the DCB to the high-level index entries. 

3. Places the calculated amount of storage needed for cylinder and master indexes in the DCBNCRHI 
field. This field of the DCB is useful to the user if he later needs to bring the high-level indexes into 
main storage to search them. 

4. Module IGG0192F also computes the number of tracks available for independent and cylinder 
overflow and places this calculation in the DCB, the JFCB, and the DSCB. 

NOTE: When the JFCB or DSCB are modified, they are scheduled for rewriting. 

Load Mode Open Executor IGG0192G 

During the initial loading of an ISAM data set, control is transferred from module IGGO 192 F to executor 
module IGG0192G. 

1. Module IGG0192G sets up the buffer control table (IOBBCT) used by the PUT macro processing 
modules. 

2. Formats and initializes several fields in the DCB work area (ISLCOMON) which are used later in 
load mode processing. These fields include: 

• ISLCBF— a pointer to the buffer to be loaded next by the put processing routine. 

• ISLBMPR— calculated by adding the logical record length to the key length and used to 
facilitate "stepping through" a series of records in blocked buffers. 

• ISLFBW— (equal to the number of buffers specified in the DCB minus one) used to determine 
when buffers are filled and can be scheduled for writing. 

• ISLEOB— contains the end of block address calculated from adding the contents of the 
DEBBUFL field to the starting address of the buffer. 

Resume Load Open Organization 

If the user is adding new records to the prime area of a previously created data set (resume loading), 
then module IGGO 1921 doesn't pass control to module IGGO 19 2D and the rest of the initial load modules; 
instead, control goes to the resume load modules beginning with IGGO 1920 or IGGO 1950. (See Figures 8 
and 9 for initial and resume load module flow.) 

The beginning open executors for resume load insures the accuracy of the required DSCB and DCB 
fields. If the user is resume loading a data set containing fixed length records, module IGGO 1920 is the first 
module entered. If variable length records are being added to the prime area, module IGG01950 is entered 
first. 
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Load Mode Open Executor IGG01920 

1. Validates and resets the following fields in the format 2 DSCB, as needed: 

• DS2LPRAD— the address of the last record in the prime data area. This address is in the form, 
MBBCCHHR, and is subsequently moved to the DCBLPDA field. 

• DS2LOVAD— the address of the last record in the current independent overflow area. This 
address is in the form of an MBBCCHHR address and is subsequently moved to the DCBLIOV 
field. 

• DS2BYOVL— the number of bytes remaining on the current independent overflow track. This 
count is later moved to the DCBNOV field. 

• DS2RORG2— the number of tracks remaining in the independent overflow area. It is 
subsequently merged into the DCBRORG2 field. 

• DS20VRCT-the total number of records in all overflow areas, merged to DCBNOREC. 

These fields may be incorrect if the data set was previously closed improperly; thus, the resume load 
modules need to validate these fields before adding more records at the end of the prime area. 

Load Mode Open Executor IGG01950 

IGG01950 is the VLR counterpart of module IGG01920. It is the first resume load module entered 
when variable length records are being added. 

This module may not be executed, although it will be entered, if the user has specified that the data set 
may be shared by other tasks (DISP=SHR). It will not be executed in that case because another DCB may 
have already been opened for the data set and a DCBFA (DCB field area) already set up for the purpose of 
maintaining the DCB fields. (See DCB Integrity Feature and description of the DCBFA). The processing 
sequence of IGG01950 follows. 

1. IGG01950 merges these end pointers from the format 2 DSCB to the DCB: 

• DCBLPDA— the direct access device address of the last record in the prime data area. 

• DCBLIOV— the direct access device address of the last record written in the independent 
overflow area. 

2. Module IGG01950 also adjusts, when necessary, the independent overflow control information in 
the DCB: 

• DCBRORG2— the tracks remaining in independent overflow. 

• DCBNOV— the bytes remaining on current overflow track. 

• DCBNOREC— the number of logical records in the overflow area. 

Load Mode Open Executor IGG0196D 

From module IGG01920 or module IGG01950, module IGG0196D will be given control during the 
opening of a DCB for resume load. The functions of IGG0196D follow. 

1. Sets up the buffer control table. 
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2. Sets up the R, F, and P bytes for the current-normal and current-overflow track index entries. 

3. Initializes and executes Channel Program 31 A which reads the key portion of the last overflow 
track index entry of the last cylinder. CP31A reads this last overflow track index entry into the key 
save area of ISLCOMON. 

4. If necessary, module IGG0196D initializes and executes Channel Program 3 IB. CP31B is used when 
the last prime data block allocated for the data set is not full. CP3iB reads this unfilled last prime 
data block into the first buffer specified in the buffer control table. 

Load Mode Open Executor IGG0195G 

The next module, after IGG0196D, to be executed during open processing for resume loading is module 
IGG0195G. IGG0195G is the resume load counter-part of the initial load module IGG0192G. Both 
modules calculate and initialize fields in the ISLCOMON area, necessary for buffer and record management 
in loadmode. IGG0195G also: 

1. Sets up ISLCBF, ISLEOB, ISLBMPR, and ISLFBW in the load mode DCB work area (ISLCOMON). 
(See module IGG0192G, and the ISLCOMON area in Section 5). 

2. Sets the DCBMSWA field to the direct access device address (MBBCCHH) of the next to last track 
in the last prime data extent. The DCBMSWA field normally contains the address of a user-supplied 
work used when records are being added to an existing data set. 

3. Initializes record moving logic. 

4. Initializes Area Y, the Load mode processing work area containing a high level index entry, and 
normal and overflow track-index entries. Area Y is shown in Figure 69.ISLVPTRS (in ISLCOMON) 
points to area Y. 

Load Mode Open Executor IGG0196G 

1. Sets the count fields in ISLCOMON: 

• ISLNCNT-the count field for the current normal-track-index entry. 

• ISLOCNT-the count field for the current overflow-track -index entry. 

• ISLDCNT-the count field for the current dummy-track-index entry. 

2. Sets the count fields in: 

• The first buffer 

• DCBLPDA-the direct access device address of the last prime data record in the prime data area 
(MBBCCHHR). 

• IOBSEEK-an extension of the standard IOB. This extension is present whenever the data set is 
on a direct access storage device. The IOBSEEK field (or extension) comes after the standard 
IOB and precedes the access method extension. IOBSEEK contains the seek address required by 
the channel program in performing the I/O request (IOBSEEK+3). 
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Load Mode Open Executor IGG0195D 

If the user has no high level indexes (cylinder or master indexes), then, upon completion of module 
IGG0196G, all the open executors used for resume load only will have been executed; and the flow of 
control will pass to the rest of the load mode open executors which are used for both initial and resume 
load (see Figures 8 and 9). 

However, if during the opening of a DCB for resume loading, high level indexes are required, control 
will be transferred from module IGG0196G to module IGG0195D. 

The functions of IGG0195D, the last resume load open executor, are described below. 

1. Initializes the index location table (ISLIXLT) in the load mode DCB work area (ISLCOMON). 
ISLIXLT contains the beginning and ending address for each level of index above the track index. 

2. If the direct access device being used is a 2321, corrects the bin number in the index location table. 

Full Track Index Write Phase Organization 

If the full-track-index-write option has been selected by the user, two load mode open executors (used 
exclusively with full-track-index-write initialization) are entered. These modules are IGG0195T and 
IGG0195U. Both modules are executed during a resume load when the full-track-index-write option has 
been selected. For an initial load, only module IGG0195T is executed. 

Modules IGG0195T and IGG0195U are both described below. 

Load Mode Open Executor IGG0195T 

1. Calculates the size of the track-index-save-area (TISA). When the full-track-index-write feature is 
selected, the TISA is used by the full-track-index-write-put routine module (either IGG019I1 or 
IGG0192, see Table 1) to accumulate track index entries and write them as a group. This is done 
once for each track of track index. (The full-track-index-write is described in the discussion of the 
Load Mode Processing Phase Operations.) 

2. Calculates the size of the appropriate version of channel program 20. 

3. Obtains main storage space for both the TISA and CP20, and initializes both. If main storage space 
is not available, the full-track -index-write feature will not be employed. 

Load Mode Open Executor IGG0195U 

If the DCB is being opened for resume loading of an ISAM data set, IGG0195T will transfer control to 
IGG0195U. 

1. IGG0195U initializes the track-index-save-area and CP20 resume writing track index entries. 

The Final Executors in Load Mode Open Phase Organization 

From the Resume or Initial Load open modules, and from the Full Track Index Write modules if used, 
control is passed to the final Load mode open modules which are used for all forms of Load mode open 
processing. 
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Load Mode Open Executor IGG0192U 

The first of the final open executors entered may be either module IGG0192U or IGG0192R. 
IGG0192U will receive control if the user has specified that Write Checking will be used, module 
IGG0192R will receive control if Write Checking is not being employed. 

1. Load the modules that contain the: 



• 






Macro-time routines-Modules IGG019GB, or IGG019IB for the PUT routine or Module 

IGG019I2 for Full Track Index Write 

Appendage routines-module IGG019GD 

Channel programs-Module IGG019GI or IGG019IF 



2. Module IGG0192U will also obtain main storage space for the channel programs needed by the 
processing routines. 

3. Module IGG0192U will build channel program 18 from its skeleton brought in module IGG019GF 
orIGG019IF. 

Load Mode Executor IGG0192R 

IGG0192R performs exactly those functions outlined above for module IGG0192U, except those 
necessary for write checking. 

Load Mode Executor IGG0192S 

Module IGG0192S receives control from either IGG0192U or IGG0192R. 

1. This module will build channel program 19 from its skeleton. CP19 is used to initialize the cylinder 
overflow record and to preformat shared tracks when required with fixed length records. 

2. If a track is being shared, the temporary index entries on the shared track of the first cylinder are 
written. This is referred to as "preformatting" the first shared track. Channel program 19 is used to 
preformat shared index tracks. The preformatting of shared tracks pertains to fixed length records 
only. Area Z in ISLCOMON is used as a work area in preformatting the first shared track. 

The description of module IGG0192D also discusses the shared track feature. 

Load Mode Processing Phase Operations 

When loading or resuming the loading of an ISAM data set, the user issues a PUT macro instruction to 
place the record in the data set. The put routine moves the record to the buffer. When a specified number 
of buffers are full, channel programs are scheduled to write the buffers into the prime data area of the data 
set and to create or update any required index entries. 

An appendage routine analyzes the results of each channel program execution. When necessary, the 
appendage routine will start a new channel program to continue or complete the request, or it will process 
and resolve errors resulting from the channel program execution. If the original request was successfully 
completed, the appendage routine returns control to the user. 

Information about the data set is communicated among the processing routines and the channel 
programs in control blocks and work areas. These data areas are described in detail in Section 5. 

This section describes the processing routine logic, the flow of control through the channel programs, 
and the relationships of the data areas to each other, the channel programs, and the processing routines. 
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PUT Routine 

Successive PUT macro instructions cause entries to the put routine which places records into the data 
set and creates the necessary indexes. The records must be in data key sequence. The put routine may 
operate in either of two modes: move or locate. In move mode, the routine actually moves a logical record 
from an input buffer or work area into an output buffer. In locate mode, the routine supplies the address of 
an output buffer to the processing program, which must then move the record to that buffer. The mode of 
PUT is specified in the DCBMACRF field of the DCB. 

The put routine utilizes the beginning of buffer and end of buffer subsidiary routines to accomplish 
buffer management. The put routine initializes the various channel programs and requests execution of 
them when writing data or indexes. The appendage modules gain control after channel program execution 
and indicate whether or not the writing was successful. 

The put routine first checks to see if the appendage routine has signaled (in DCBEXCD1) an 
uncorrectable write error on a previous attempt to write either data or index entries. If so, the put routine 
takes the exit to the processing program's synchronous error routine, where the user may either issue a 
CLOSE macro instruction or terminate the task. In any event, no more records will be accepted. The results 
are unpredicatable if the programmer issues another PUT macro instruction. 

The put routine then performs a check on the data key. (In locate mode the key checked is that of the 
previous record.) If the keys are not in ascending sequence, control is given to the user's synchronous error 
routine. However, in this case, if the processing program is able to correct the sequence error, it may issue 
another PUT for this record, and continue normal processing. 

For variable length records, the put routine compares the length of the record with the maximum 
record length specified in DCBLRECL. If it is greater than the maximum record length, the put routine sets 
bit 4 of DCBEXCD2 and enters the user's synchronous error routine. The user may either change the record 
length and reissue a PUT for this record or he may for the next record. 

The put routine next determines whether the processing mode is move or locate mode. 

Move Mode Processing 

Fixed Length Records: If the current buffer is full, the routine links to the beginning of buffer routine to 
initialize a new buffer. 

It then moves the user's record to the buffer. If this record completes the buffer, the routine links to 
the end of buffer routine to attempt to write the buffer. If the buffer is not full but a write channel 
program is available, the routine uses the end of buffer routine to attempt to write any previously filled 
buffers which could not be written for lack of a channel program. 

The routine then returns control to the user. 

Variable Length Records: If the record format is blocked and the record will fit in the current buffer 
and/or on the current track, it is moved into the buffer and control is returned to the user. If the record 
format is unblocked or if the current buffer is full, control is passed to the end of buffer routine to 
schedule the current buffer for writing. The end of buffer routine will pass control to the beginning of 
buffer routine to initialize the next buffer. Then the record is moved into the new buffer and control is 
returned to the user. 

If the record will not fit on the current track-either as part of the current buffer or as another block -the 
current buffer is marked as the last for the current track. Control is then passed to the end of buffer routine 
to schedule the current buffer for writing. The end of buffer routine passes control to the beginning of 
buffer routine to initialize the next buffer. The record is moved into the new buffer and control is returned 
to the user. 
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Figure 10. Load Mode Put Routine 
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Locate Mode Processing 

Fixed Length Records: If the current buffer is full the put routine links to the end of buffer routine to 
attempt to write the buffer just filled and then immediately links to the beginning of buffer routine to 
initialize a new buffer. If the current buffer is not full but channel program (CP) 18 is now available, the 
routine links to the end of buffer routine to attempt to write any buffers which could not be written 
previously because the channel program was in use. 

The locate put routine then provides the processing program with the address of an available buffer and 
returns control to the processing program. 

Variable Length Records: The PUT routine will compute the remaining bytes in the current buffer, using 
the buffer size and subtracting the sum of the logical record lengths of those records that have already been 
placed in the buffer by the user. Then the routine will determine if another record of maximum LRECL 
can be placed into the address of the available position in the buffer. Otherwise, if the remaining bytes in 
the buffer is less than LRECL or if record format is unblocked, control is passed to the EOB and BOB 
routines as described above in the discussion of move mode. If it is determined that LRECL bytes added 
either to the current buffer or as another block will exceed the remaining capacity of the current track, the 
current buffer is marked as the last for the track. Control is then passed to the EOB and BOB routines. 
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Beginning-of -Buffet Routine 

The beginning of buffer routine initializes a new buffer and determines the device location into which 
the buffer will eventually be written. If the records are fixed length and the location for this buffer proves 
to be the first location available for data records on a new cylinder, CP19 may be called to preformat the 
track index of the cylinder if it is to contain a shared track and/or a cylinder overflow control record. In 
the preformatted records only the count field is significant. 

If writing this buffer will cause the data set to exceed the prime data space allocated to it, or if the 
appendage routine has indicated an uncorrectable write error occurred during an attempt to add the 
previous contents of this buffer to the data set, the beginning of buffer routine takes the exit to the 
processing program's synchronous error routine. 

The user may either issue a CLOSE macro instruction or terminate the task. In any event, no more 
records will be accepted when either of these errors occurs. The end of buffer routine is entered when the 
put routine has determined that the current buffer is full. It will initiate writing the current buffer plus any 
previously filled buffers not yet written if the current buffer is marked as the last for the current tracks or 
if the number of buffers ready for writing is equal to the contents of ISLFBW. 

End-of -Buffer Routine 

The number of buffers which must be filled in order for a write to be scheduled, so that the number of 
writes per track is kept minimal, is maintained in the field ISLFBW. Its content depends on the number of 
buffers in the pool; however, it does not exceed the number of buffers necessary to fill an empty track if 
one is to be started or to fill a partially written track if one has been started. 

If a channel program is available and if the number of full buffers is equal to the content of ISLFBW, 
the end of buffer routine schedules a write channel program for that number of buffers and then 
recomputes the number. If a track or cylinder is to be completed, it also schedules channel programs to 
write index entries. 



( End of buffer J 




Schedule 
channel 
program (s) 



Compute number 
of buffers to be 
written next 



Figure 12. Load Mode EOB Routine 

Full-Track-Index-Write 

The Full-Track-Index-Write is an option for load mode that may be selected by specifying 
DCBOPTCD=U. 
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Figure 13. Load Mode Channel End Appendage Routines 
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When the option is specified, ISAM accumulates track index entries in a track index save area (TISA) 
obtained during open processing and writes these entries as a group, once for each track of track index. 

The track index save area (TISA) obtained during open processing is preceded by a twenty-byte control 
field which controls placement of entries. If an area of sufficient size is not available for the TISA, ISAM 
defaults to the usual mode of processing. (Normal and overflow entries written at the end of each prime 
data track.) 

The TISA is written when it is full, when end-of-cy Under is detected, or at processing time. 

Appendages 

There are both channel end and abnormal end appendages for the channel programs of load mode. 

Channel End Appendage: The channel end appendage for CP18 and CP20 indicates successful completion 
of the channel program to the put routines. The channel end appendage of CP21 indicates successful 
writing of an index record and determines whether a higher level index entry is needed. If so, it creates that 
index entry and issues an EXCP so that entry will be written. The channel end appendage of CP19 receives 
control after ten index entries have been written on a shared track and checks to see if more are needed. If 
the track is not yet full, it continues to issue EXCP commands until the track is properly formatted. 

Abnormal End 
Appendage 




No 



< Normal return \ 
to IPS J 



Yes 



Set status bits 
of buffer(s) 



Move first 16 bytes 
of I OB to load 
mode work area 



SetDCBXCDI 
uncorrectable 
I/O error 



i 



I 



Load reg 0-address 
of buffer in error 
reg 1— address of first 
16 bytes of I OB 



Normal return 
to IOS 



Figure 14. Load Mode Abnormal End Appendage Routine 
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When write checking has been specified, the CP18 and CP19 channel end appendages reinitialize those 
channel programs to re-read the data or index entry written before indicating successful completion. 
Appendages do not modify the channel programs when CP20 and CP21 are used with write checking 
because those channel programs are designed to readback without modifications. 

Abnormal End Appendage: The abnormal end appendage for CP18, upon finding a permanent error, 
identifies the buffer in error, saves the contents of the appropriate input/output block (IOB), and indicates 
the error to the put routine. The abnormal end appendages for CP19, CP20, and CP21 will also indicate 
permanent errors to the put routine. 

When write checking has been specified, the CP18 and CP19 abnormal end appendages have an 
additional function. If an error (e.g., data check) is detected during read-back, the appendage reinitializes 
CP18 or CP19 for writing and issues the EXCP command. 

Load Mode Processing Phase Organization 

The processing routines of bad mode include one module which contains the put routine and its 
subsidiary routines: the beginning-of-buffer (BOB) routine and the end-of-buffer (EOB) routine. In 
addition, there is one module of appendages and one module of channel programs. Each of these modules 
exists in several versions; the version selected and executed depends on the options specified by the user. 
Load mode open executors, IGG0192U and IGG0192R, load the proper version according to the user's 
program options. Table 1 shows the load mode processing modules. 

Table 1. Load Mode Processing Modules 



Module Name 


Additional Considerations 


Function 


IGG019GA 


Fixed Length Records 


No Write Check 


PUT processing contains PUT 
routine, EOB routine, and 
BOB routine. 


IGG019GB 


Write Check 


IGG019IA 


Variable Length Records 


No Write Check 


IQG019IB 


Write Check 


IGG019GC 


No Write Check 


PUT Appendage routines- 
Channel end and 
abnormal end. 


IGG019GD 


Write Check 


IGG019GE 


Fixed Length Records 


No Write Check 


Channel program skeletons- 
contains CP18, CP19, CP20 
andCP21. 


IGG019GF 


Write Check 


IGG019IE 


Variable Length Records 


No Write Check 


IGG019IF 


Write Check 


IGG019I1 


No Write Check 


Full Track Index Write 
Routines-contain CP20A, 
CP20B,andCP20C. 


IGG019I2 


Write Check 


IGG019GG 




RPS SIO appendage 
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Channel Programs 

The channel programs (except CP31 and CP91) exist in "write checking" and "no write checking" 
versions. CP19 and CP20 also exist in different versions for fixed length records and variable length records. 
Table 3 shows which channel program skeleton modules are loaded for each combination of user options. 
Flow of control through the channel programs is shown in Figure 15 for fixed length records and in Figure 
16 for variable length records. 

CP18 Used to write prime data records. 

CP19 Fixed Length Records: Used to initialize cylinder overflow record and shared index tracks 

(preformat). 

Variable Length Records: Used to initialize cylinder overflow control record. 

CP20 Used to write track index entries. 

CP20A Used to write a full track of track index entries on a non— shared track of track index 

entries. 

CP20B Used to write a shared track of track index entries. 

CP20C Used to perform write checking for CP20A and CP20B. 

CP21 Used to write cylinder and master index entries. 

CP31A Used to read the key portion of the last overflow track index entry of the last prime data 

cylinder into the keysave area. (Resume loading only, located in IGG0196D.) 

CP31B Used when the last prime data block is not full to read it into the first buffer specified in the 

Buffer Control Table. (Resume loading only, located in IGG0196D.) 

CP91 Used to fill unused index tracks with inactive and dummy entries. (CP91 is located in 

IGG0202K.) 
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Figure 15. QISAM— Load Mode Channel Program Flow (Fixed Length Records) 
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Figure 16. QISAM-Load Mode Channel Program Flow (Variable Length Records) 
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Control Blocks and Work Areas 

Information about the data set and processing requests is carried in various control blocks and work 
areas. The relationship of these areas to each other and to the data set and processing programs is shown in 
Figure 17. 
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Figure 17. Load Mode Control Blocks and Work Areas 
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Load Mode Close Phase Operations 

The first load mode close executor is entered from the I/O support close routine. When all previously 
scheduled writes are finished, the load mode close executors complete the data set activity for load mode. 
Figure 18 below shows the load mode close phase functions. 
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Figure 18. Load Mode Close Executors 
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Load Mode Close Phase Organization 

The close phase of QISAM load mode comprises six executor modules which perform operations 
required to complete data set activity when a previously scheduled write operation is complete. 

Load Mode Close Executor IGG0202I 

If a variable length record data set is closed, IGG0202I will not be executed, but it will transfer control 
to the VLR close executor, module IGG02028. 

With the closing of a fixed length record data set, IGG0202I does the following: 

1. Pads (fills with dummy records) the last buffer, if necessary. 

2. Writes all filled but unwritten buffers. 

3. Completes the index entries. 

Load Mode Close Executor IGG02028 

This module receives control following the closing of variable length record data sets only. It then: 

1. Pads the last buffer when necessary. 

2. Writes all buffers that are filled but not yet written into the data set. 

3. Completes the index entreis so these reflect the complete data set. 

Load Mode Close Executor IGG0202J 

1. IGG0202J writes the end of data mark after the last data record. 

Load Mode Close Executor IGG0202K 

1. Performs calculations for modules IGG0202L and IGG0202M in padding unused index space. 

2. Initializes channel program CP91 is used to fill unused index tracks with inactive dummy entries. 

Load Mode Close Executor IGG0202L 

1. Writes the final dummy end index entry. 

2. Pads, with inactive entries, the unused track index space of the cylinder containing the last prime 
data record. Module IGGO202L uses ISLNIRT to signal the end of track index padding. 

Load Mode Close Executor IGG0202M 

1. Determines if higher level indexes exist and, if so, write the final dummy entries for these. 

2. Pads out any unused index space with inactive entries. (See Data Set Organization section for 
information on dummy entries and padding.) 

The flow of control through the close executors is shown in Figure 19. After the mode-oriented 
close executors have completed their functions, the ISAM common close executor (IGGG202D) receives 
control. After completing the closing functions common to all ISAM, it returns control to the input/output 
support close routines. 
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Figure 19. The Flow of Control Through QISAM Load Mode Close Executors 
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Queued Indexed Sequential Access Method Scan Mode 



The scan mode of QISAM retrieves and updates the records of an indexed sequential data set, in a 
manner similar to that of the queued sequential access method. 

There are three phases of scan mode routines: open phase, processing phase, and close phase. 

Scan Mode Open Phase Operations 

The ISAM common open executors are executed when an indexed sequential data set is opened and is 
to be processed by scan mode. The last ISAM common open executor passes control to the scan mode open 
executors. The functions of these executors are shown in Figure 20. 
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Figure 20. QISAM Scan Mode Open Executors 
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Scan Mode Open Phase Organization 



The scan mode open executor modules are IGG01920, IGG01950, IGG01928, IGG01929, and 
IGG01924. 

The common open executor IGG0192C transfers control to the beginning open executors which are the 
validation modules, IGG01920 and IGG01950. The validation modules insure that the DSCB and DCB 
fields needed are still accurate. If the data set contains fixed length records, module IGG01920 will be the 
first module entered. For variable length records, module IGG01950 will be entered first. IGG01920 and 
IGG01950 are described in common processing module description part of this manual. 

Upon completion, the validation module (IGG01920 or IGG01950) passes control to the first executor 
used exclusively in opening for scan mode, module IGG01928. 

Scan Mode Open Executor IGG01928 

1. Obtains main storage space for and structure the QISAM scan mode DCB work area (see Section 5). 

2. Loads scan mode processing modules processing routines. 

3. Loads the module which contains the channel program skeletons, module IGG019HL. 

4. Moves the required channel program skeletons into the scan mode work area (see Figure 32). This 
includes moving one copy of read/write channel program, CP22, into the work area for each buffer. 

5. Deletes the channel program skeleton module, IGG019HL, from main storage. 

6. Tests the bits at DEBRPSID for an RPS device. If any of the bits are on, the scan mode SIO 
appendage, IGG019HA, will be loaded. A GETMAIN for a 16-byte larger work area is issued to 
allow for the channel program prefix required RPS devices. 

Scan Mode Open Executor IGG01929 

1. Initializes the channel programs loaded by module IGG01928 in the DCB Work Area. If necessary 
initializes these channel programs to their 'non-RPS' state. 

2. Chains the copies of CP22 together. Assigns a buffer to each copy of CP22. 
Scan Mode Open Executor IGG01924 

1. Moves the format 2 DSCB fields needed into the DCB. (See modules IGG01950 and IGG01920, in 
Section Two.) 

2. Loads the RPS SIO appendage if required. (See module IGG01928 above.) 

3. Completes the initialization of the scan mode work area. 

4. Obtains the interruption request block (IRB) which will be used by the supervisor to maintain 
information concerning an asynchronous routine located in the GET appendage module, module 
IGG019HG. Among the information in the IRB is the entry point address (RBEP— see the IRB as 
shown in Figure 32) of the asynchronous routine within module IGG019HG. (See the discussions of 
the scan mode GET routine and the appendages, for further information on this asynchronous 
routine). 
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5. Calculates W1ICNOT which is equal to the integer that will contain the number of buffers 
(DCBBUFNO) divided by (WlICNOT=BUFNO/2). 

W1ICNOT is located in the Scan Mode DCB Work Area, and is used in scheduling Input/Output 
requests. The read/write channel program (CP22) will only be scheduled if the W1ICNOT field is 
set. 
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Figure 21. Flow of Control Through Scan Mode Open Executors 

Scan Mode Processing Phase Operations 

QISAM scan mode is designed to read records from and/or write records back to an ISAM data set, 
selectively. Scan mode may be used to retrieve and update indexed sequential data records sequentially or 
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randomly. The basic features of scan mode which make it able to retrieve and update records from any 
point in the data set are: 

• A buffer controlling technique which allocates a copy of the read/write channel program (CP22) to 
each buffer. 

• Several "logical" buffer queues to which each copy of CP22 and the buffer that the CP22 points to 
may be moved. Figure 22 illustrates the chaining of channel program 22 and the buffers on these 
queues. 

• Usage of the W1ICN0T field in the scan mode DCB work area. W1ICNOT is equal to the number of 
buffers being used (DCBBUFNO/2). W1ICNOT is especially important in the scheduling routine 
operations. (Refer to the scheduling routine description.) 

The five macro instructions which cause scan mode processing routines to retrieve and update indexed 
sequential data records are SETL, GET, PUTX, ESETL, and RELSE. These macros are described fully in 
the publication IBM System/360 Operating System: Supervisor and Data Management Macro Instructions. 

The SETL routine sets the starting point of retrieval. The GET routine makes records available to the 
processing program. The PUTX routine restores the records to the data set. The ESETL routine terminates 
scanning of the data set. The RELSE routine causes the remaining records fo the current buffer to be 
bypassed. 

SETL intiializes channel programs to search the indexes for the start-of-retrieval point and to read in 
the first buffer or buffers. GET initialites channel programs to read successive buffers, and PUTX causes the 
same channel programs to be reset and rescheduled to write the updated buffers back into the data set. 

The channel programs for scan mode are described in detail in Appendix B. Appendage routines analyze 
the results of each channel program and initiate further processing operations depending on the status of 
the channel program's successful or unsuccessful execution. 

Information about the data set is communicated among the processing routines and the channel 
programs in control blocks, work areas, and queues. This section shows the relationship of these areas to 
each other. They are described in detail in Section 5. 

This section describes the processing routine logic. 

Buffer Control Techniques 

Buffers are attached, by a copy of CP22, to any one of the five buffer queues. (See Figure 22.) These 
queues are used in controlling input/output operations. The buffers are assigned to particular queues 
according to the current status of each buffer. 

1. FREE Queue Buffer not in use. 

2. READ Queue Buffer scheduled to be filled (a version of CP22 will read a record or records into the 
buffer.) 

3. USER Queue Buffer made available for processing program use by the GET macro instruction. 

4. PUTX Queue Buffer flagged as ready to be written. 

5. WRITE Queue Buffer scheduled to be written. 
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Figure 22. Scan Mode Channel Program/Buffer Queues 



The queuing on these buffer queues is handled by the GET macro instruction routine and its subsidiary 
routines — the scheduling routine and the end-of-buffer (EOB) routine. However, all scan mode routines 
handle the buffer queuing to some degree. Figure 23 illustrates the buffer movement during Scan mode 
processing. 
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Figure 23. Buffer Queueing and Movement in Scan Mode 



The buffer queue movements of SETL and ESETL are shown in the upper portions of Figure 23, and the 
effects of GET and PUTX are in the lower portion. The routines that queues are indicated on the flowlines 
to and from queues. 
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An Example of Buffer Movement in Scan Mode 

For this example, it has been assumed that the number of buffers=3, the number of logical records per 
buffer=2, each GET macro instruction issued is followed by a PUTX macro instruction. 

Macro Instructions Buffer Movement 

1. OPEN All buffers (3 buffers in this example) are placed on the FREE queue. 

2. SETL a. Locate the starting record of the file, or string of records specified in the SETL 

macro instruction. 

b. Place buffer 1 on the READ queue and schedule a read of the specified records 
into buffer 1 ; wait for completion of the read. 

3. GET (1st GET) a. Move buffer 1, which has been filled, to the USER queue. 

b. Move buffers 2 and 3 to the READ queue and schedule a read operation. 

c. Return the address of the first record retrieved to the user. 

4. PUTX Any PUTX will simply set an indicator that the current record is to be written back 

to the data set and return. (Refer to Figure 28.) 

5. GET (2nd GET) a. If the outstanding reads from the previous GET are completed, move those 

buffers to the USER queue. 

b. Return the address of the next input record to the user. 

6. GET (3rd GET) a. On the third GET, move the processed buffer- buffer 1- to the PUTX queue. (It 

is assumed that a PUTX macro follows each GET in the processing program.) 

b. Move buffers 2 and 3 from the READ queue to the USER queue, unless these 
buffers were moved to the USER queue by the GET routine in step 5. 

c. Return the address of the next input record in the file to the user. 

7. GET (4th GET) Return the address of the next input record to the processing program. 

8. GET (5th GET) a. Move the processed buffer (buffer 2, in this instance) to the PUTX queue. 

b. Move two buffers from the PUTX queue to the WRITE queue and schedule a write 
operation. Since the PUTX has been executed for two buffers, a WRITE may now 
be scheduled. (See Scheduling and End of Buffer routines.) 

c. Return the address of the next input record. 

9. GET (6th GET) a. If the scheduled write is complete (step 8), move the two buffers from the WRITE 

queue to the READ queue and schedule a read. 

b. Return the address of the next input record. 

10. GET (7th GET) a. On the seventh GET, the processed buffer (buffer 3, in this example) is moved to 

the PUTX queue. 
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b. When the scheduled read is complete (step 9), move two buffers to the USER 
queue. (It may be necessary to wait for the last scheduled write, move the buffers 
to the READ queue, issue a read, and wait for that read before this step can 
be executed.) 

c. Return the address of the next input record. 

11. GET/PUTX The succeeding GET and PUTX macro instructions will repeat steps 7 through 10. 

Every time a read takes place, 2 blocks will have been filled. For a write to occur, 2 
buffers must be filled. 

12. ESETL a. WAIT for any outstanding read or write to be completed. 

b. Move buffers from the READ or WRITE queue to the FREE queue. 

c. Move any buffers from the USER queue to the PUTX queue or to the FREE 
queue. 

d. Move any buffers on the PUTX queue to the WRITE queue and schedule a write. 

13. CLOSE a. Wait for any scheduled, but uncompleted, writes to be completed. 

b. Return all buffers to the buffer pool. 

SETL Routine 

The SETL routine determines the start of a scan by executing a channel program (dependent on the 
SETL option used) to search the indexes for the first record or block to be retrieved. In scan mode, records 
are retrieved from the beginning of the data set unless a SETL macro is used. 

In addition to determining the starting point, the SETL routine initializes the buffer queues. When 
scanning is initiated, all buffers are on the free queue. (See "Scan Mode Open Phase".) However, when 
subsequent scans are to be initiated, it is possible that buffers will still be on the write queue from the 
previous scan. When this is the case, the SETL routine moves these buffers to the free queue after awaiting 
the completion of any writes in progress. The SETL routine then moves a buffer from the free queue to the 
read queue, initiates a read operation, and upon completion of the read operation, returns control to the 
processing program. 

If the SETL routine detects any error condition, it sets the corresponding bit for that error in the DGB 
exceptional condition (DCBEXCD1) field. (The exceptional condition codes are described in Section 9.) 
After setting this bit, SETL passes control to the processing program's synchronous error routine (SYNAD). 
If no synchronous error routine is present, the task is abnormally terminated. 

When the data set is shared (DISP=SHR), the SETL routine will cause the DCB Field Area (DCBFA) to 
be updated. (See The DCB Integrity Feature.) 
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GET Routine 

The get routine retrieves records from the data set sequentially, and gives the processing program access 
to a record in the current buffer on the user queue. (SETL fills the first buffer.) The get routine has two 
subsidiary routines: the end of buffer routine and the scheduling routine. 

If, on entry from the macro instruction, the user has already been given access to the last record of the 
user queue buffer currently being scanned, the routine links to the end of buffer routine to advance to a 
new buffer. 

Then, if a write has been initiated and is complete, the get routine moves the buffers on the write 
queue to the free queue. If the get routine finds that an appendage routine has indicated unsuccessful 
completion of a previous write, the exit to the processing program's synchronous error routine is taken. 
Another GET must be issued before a record becomes available for processing. 

If the previous attempt to schedule a read has been unsuccessful due to a shortage of available buffers 
(refer to "Scheduling Routine" for criteria for determining the minimum number of buffers necessary), 
the scheduling routine is used to make another attempt to execute the read. 

If a read has been initiated and is complete, the routine moves the buffers on the read queue to the user 
queue and uses the scheduling routine (refer to "Scheduling Routine") to attempt to schedule a new read. 

If a buffer on the user queue has been incorrectly read, each GET command issued to that buffer causes 
control to pass to the synchronous error routine. For blocked records, successive GET commands to the 
buffer give the synchronous error routine access to each record of the buffer in turn. When the buffer is 
exhausted and another GET is issued, the return to the processing program is normal unless another read 
error occurred. 
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Figure 25. Scan Mode GET Routine 
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EOB Routine 

The end of buffer routine moves the buffer just completed from the user queue to either the PUTX 
queue or the free queue. It moves the buffer to the PUTX queue if the user has issued a PUTX macro 
instruction for any of the records in that buffer; otherwise, it moves the buffer to the free queue. 

If there is a minimum of N/2 buffers on the PUTX queue and a previous write has been completed, the 
routine moves the write the write queue buffers to the free queue, the PUTX queue buffers to the write 
queue, and initiates a write. 

If at this point, there are buffers on the user queue, the routine returns control to the calling routine. 
Otherwise, the routine must move buffers from the read queue to the user queue. If the read queue is 
empty, the routine waits for completion if a write is in progress, moves the write queue to the free queue 
and uses the scheduling subroutine to initiate a read and, on completion of that read, moves the read queue 
to the user queue. If the read queue is not empty, the routine moves the read queue to the user queue. It 
then returns control to the calling routine. 

Before moving a buffer from the write queue to the free queue, the routine ensures that the write of 
that buffer was completed successfully. If not, the synchronous error routine is given control. 
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Figure 26. Scan Mode EOB Routine 
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Scheduling Routine 

Processing in the scheduling routine depends primarily on whether the next record to be read is on a 
prime -data or overflow track. 

If an overflow record is to be read, a read may be scheduled if there are at least two buffers on the free 
queue. It may also be scheduled if there is only one buffer and that buffer is on the free queue. Before 
initiating the read, the routine moves the free queue to the read queue. It then returns control to the calling 
routine. 

If prime data is to be read, it attempts to schedule a read of N/2 buffers. Provided N/2 buffers are 
available and at least N/2 blocks remain on the track, this can be done. It can also be done with fewer than 
N/2 blocks remaining on the track if the track is not the last of a cylinder and no overflow chain is 
associated with the track. If these conditions are met, the routine moves N/2 buffers from the free queue to 
the read queue, initiates a read and returns control to the calling routine. 

If these conditions are not met, the scheduling routine initiates a read to complete the last track of a 
cylinder or a track having an overflow chain associated with it, provided that sufficient buffers are available 
on the free queue. As before, it moves the buffers required to the read queue, initiates a read and returns 
control to the calling routine. 

If a read cannot be initiated, the routine returns control to the calling routine. 
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Figure 27. Scan Mode Scheduling Routine 
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PUTX Routine 

The PUTX macro is used in updating data sets. When the PUTX macro is issued in the processing 
program, the PUTX routine of Scan mode will be used (see Processing Routines— Table 2). The PUTX 
routine causes records obtained by locate mode GET macro instructions to be written back to the data set. 

The PUTX routine sets an indicator flag associated with the current buffer on the user queue. The GET 
macro instruction's end of buffer (EOB) routine uses this indicator to determine if the user queue buffer 
should be moved to the PUTX queue. Eventually, the buffer will be moved from the PUTX queue to the 
Write queue (it is moved either by the EOB routine for GET or by the ESETL routine when an ESETL is 
issued in the processing program). Once on the Write queue the buffer is scheduled to be written-i.e., the 
channel program used to read or write the buffer (a copy of CP22 is used with each buffer) is reset and 
scheduled to write the updated buffer back into the data set. 
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PUTX macro 
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on for first buffer 
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Figure 28. Scan Mode PUTX Routine 

ESETL Routine 

The ESETL routine ends scanning. 

If the user has issued a PUTX macro instruction for any of the records in the current buffer on the user 
queue, the routine moves the buffer to the PUTX queue. If the READ queue is not empty the routine 
awaits completion of pending reads and then moves the READ queue to the FREE queue. 

If the PUTX queue is empty, the routine returns control to the processing program. Otherwise, the 
routine awaits completion of pending writes and moves the WRITE queue to the FREE queue if the write 
was successful. (If the write was not successful, the synchronous error routine is entered, and another 
ESETL macro instruction must be issued to end this scan.) It then moves the PUTX queue to the WRITE 
queue, initiates a write, and returns control to the user. 
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Figure 29. Scan Mode ESETL Routine 
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RELSE Routine 

The RELSE routine links to the end of buffer routine causing the current buffer to be released and a 
new buffer to be initialized. If the current record is the first or last logical record in the buffer, the request 
is ignored. The RELSE routine then returns to the user. 

The RELSE routine also determines if there were any write errors for those buffers on the write queue 
whose writing has been completed. If so, the processing program's synchronous error routine is given 
control and another RELSE must be issued to release this buffer. 
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Figure 30. Scan Mode RELSE Routine 
Appendages 

There are both channel end and abnormal end appendages for those routines which cause input/output 
operations. (Refer to Table 2.) 

The channel end appendage of the SETL I routine causes a normal return to the I/O supervisor if CP25 
was completely executed. If CP25 was not conpletely executed, either the channel end or abnormal end 
appendage of the SETL I routine may be entered, depending on the setting of the CSW status bits. In the 
case of incomplete execution, an indicator is set so that the SETL I routine can later inform the processing 
program that the record was unreachable. A normal return to the I/O supervisor is issued. 

The channel end and abnormal end appendages of the SETL K (or SETL KC) routine examine CP23 to 
find out where and why the channel program terminated. Based on this examination, either CP23 is 
reinitialized to continue searching for the desired key by issuing an EXCP return, or an indicator is set to 
inform the processing program that the key could not be found and a normal return is issued. Whether the 
examination is performed by the channel end or abnormal end appendage depends upon the setting of the 
CSW status bits, and the contents of the higher level indexes. 

The channel end appendage of the GET routine issues a normal return to the I/O supervisor if there are 
no more buffers on the read queue, or the last record on a track has been read, or the buffers on the read 
queue were filled with records read from a prime data area. This channel end appendage issues an EXCP 



QISAM Scan Mode Operation 61 



return to the I/O supervisor if an overflow record was read after it modifies CP22 to continue reading the 
records in the overflow chain. When the last record of an overflow chain has been read, a normal return is 
issued. The abnormal end appendage of the GET routine sets an indicator to mark the buffer which 
contains the record in error and issues an EXCP return if there are more records to be read. Otherwise it 
issues a normal return. 

The channel end appendage of the PUTX routine (without write checking) makes a normal return to 
the I/O supervisor if there are no more buffers on the write queue. An EXCP return is issued if there are 
more buffers on the queue to be written. The abnormal end appendage makes the same returns under the 
same conditions, but, in addition, it sets both a write error indicator and an indicator to inform the 
processing program which buffer contains the record in error. 

When write checking is in effect the PUTX routine channel programs are command chained to write the 
contents of a set of buffers at a time, rather than writing all the buffers on the write queue. For prime data 
records, a set of buffers is the number of buffers on the queue or the number needed to complete the 
current track, whichever is lower. For overflow records, a set is one buffer. The contents of a set of buffers 
is written and checked before the next set is written. 

If return is made to the channel end appendage after the initial write of a set, CP22 is modified to 
accomplish read— back, and an EXCP return to I/O supervisor is issued. 

If return is made to the abnormal end appendage after the initial write of any buffer in the set, that 
buffer is marked unreachable or unwritable and an EXCP return is issued to write the remaining buffers in 
the set; or if no buffers remain in the set, CP22 is modified to accomplish read— back of the successfully 
written buffers, and an EXCP return is issued. No attempt will be made to rewrite the buffer in error; the 
processing program will be informed of the error the next time a GET macro instruction is issued for that 
buffer. 

If channel end return is made on both writing buffers and reading them back, an EXCP return is issued 
if there is another set to be written. Otherwise, a normal return is issued. 

If, when reading back any buffer that was successully written, a return to the abnormal end appendage 
occurs, an EXCP return is issued to rewrite, and then another EXCP return to recheck the buffer in error. 
Up to ten rewrites and rechecks per buffer are permitted; CP22 must be modified for each readback and 
rewrite. If a successful readback can not be accomplished, or if an abnormal end return is made on any of 
the attempts to rewrite the buffer, the buffer is marked as unwritable and an EXCP return is issued to start 
writing the next set. If there are no more sets to be written, a normal return is issued. 

When an EXCP return is to be issued and the next record to be written or searched is on another device, 
the appendage routine cannot issue the EXCP command itself. Instead, it schedules an asynchronous 
routine (located in the GET appendage). When the asynchronous routine receives control, it issues the 
EXCP macro instruction. 

Scan Mode Processing Phase Organization 

Processing Routines 

The modules containing the scan mode processing routines are shown in Table 2. 
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Table 2. QISAM Scan Mode Processing Modules 



Module Name 


Function 


IGG019HB 
(Fixed 
length 
records) 


GET, PUTX, RELSE, ESETL, SETL B 
processing routines 


IGG019HN 
(Variable 
length 
records) 


IGG019HD 


SETL K, SETL KC processing routines 


IGG019HF 


SETL I processing routines 


IGG019HG 


GET channel end and abnormal end appendages and 
asynchronous routine 


IGG019HH 


PUTX channel end and abnormal end appendages, no write check 


IGG019HI 


PUTX channel end and abnormal end appendages, write check 


IGG019HJ 


SETL I channel end and abnormal end appendages 


IGG019HK 


SETL K, SETL KC channel end and abnormal end appendages 


IGG019HL 


channel program skeletons 


IGG019HA 


RPS SIO Appendage 



Scan Mode Channel Programs 

The scan mode channel program skeletons are contained in module IGG019HL. The channel program 
skeletons are moved to a work area and completed during the open phase of scan mode. 

In processing and updating an ISAM data set, the following scan channel programs are used: 

Channel Program 22 (CP22) — The two versions of CP22 are used to read or write data records. 

Version 22A (CP22A) is used to read the key and data fields of 
unblocked records. 

Version 22B (CP22B) is used to read the data field only of 
unblocked records; or to read any blocked records. 



Channel Program 23 (CP23) - 

Channel Program 24 (CP24) - 

Channel Program 25 (CP25) - 

Channel Program 26 (CP26) - 



Used to locate the data record by SETL K or KC; searches the 
index and data tracks. 

Used to read count and data fields of the track index entries. 

Used to obtain track index entries; used with SETL I. 

Extension of CP23 (SETL K) for use on overflow chains. 



If the user has allocated enough buffers and is reading a full track at a time, as many CP22s as are 
needed (one for each buffer) will be chained together for reading the track; the same would be true for 
writing a full track at one time, that is, all copies of CP22 would be chained together. 
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Assuming the use of a file with no overflow, CP23 would be used by SETL to locate the proper record; 
then CP22 would be used to read the record; CP24 then reads the next level of track index entries and then 
schedules the next CP22. 

Figure 31 illustrates the operations of one scan mode channel program, CP23. Channel Program 23 is 
used by SETL to position to the first record of the specified file. For this example, it is assumed that no 
master indexes are being used. 
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Figure 31. Scan Mode Channel Program 23 
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Scan Mode Control Blocks and Work Areas 

Information about the data set and processing requests is carried in various control blocks, work area, 
and queues. The address relationships of these areas to each other and processing routines and channel 
queues are shown in Figure 32. 
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Figure 32. Scan Mode Control Blocks and Work Areas 
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Scan Mode Close Phase 

The QISAM scan mode close phase has only one close executor, module IGG02029, which is entered 
from the I/O support CLOSE routine. Module IGG02029 uses the ESETL routine to terminate scanning 
and clear the buffer queues. (Refer to ESETL Routine discussion, and The Buffer Control Techniques 
discussion). Even if the user has already issued an ESETL the close executor will issue another one. The 
close executor then awaits completion of any outstanding writes. If any of these writes are unsuccessful, 
the user synchronous error is entered. The user must return to the close executor to complete the release of 
buffers and work areas to the operating system. 

If the outstanding writes are completed successfully or the return from the synchronous error routine 
to the close executor has been done, then the close executor will: 

1. Return all buffers to the buffer pool; 

2. Release the work area; 

3. Update the DCB tag deletion count, DCBTDC; 

4. Update the number of overflow references field in the DCB, DCBRORG3. 

When finished, the scan close executor, module IGG02029, passes control to the ISAM common close 
executor. 
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Basic Indexed Sequential Access Method 



The basic indexed sequential access method (BISAM) provides direct storage and retrieval of the records 
in an indexed sequential data set. The READ K macro instruction permits the retrieval of a logical record 
from main storage by its record key. The READ KU and WRITE K macro instructions, when used together, 
provide the ability to update logical records in place. The WRITE K macro instruction, when used without 
READ KU, allows the user to replace unblocked logical records. The WRITE KN macro allows the user to 
insert new logical records into the data set. 

Since storage and retrieval of records are direct in BISAM, the BISAM routines are not able to read 
ahead as the QISAM scan mode GET routine can. Consequently, the user must issue a WAIT or CHECK 
macro instruction in order to determine whether a read operation has been completed. 

As in QISAM, there are three phases of BISAM routines: open phase, processing phase, and the close 
phase. 

BISAM Open Phase Operations 

The first BISAM open executor is entered from the last common ISAM open executor. The BISAM 
open executors load the BISAM processing routines, selecting the processing phase modules according to 
the processing program options. Particular processing modules are selected depending upon such options 
and considerations as: 

• The number of levels of index to be searched on the direct access device (NLSD). 

• Whether the records are blocked or unblocked. 

• Whether work areas are supplied by the user or by the access method routines. 

• Whether or not write checking is to be used. 

• Are buffers controlled by the user program or by the ISAM dynamic buffering routine (module 
IGG019JI). 

• The user's intent to add new records to the data set with the WRITE KN macro instruction. 

Some of these considerations also affect the sequence in which the BISAM open executors are called. 
Figure 34 illustrates the flow of control through the BISAM open executors. 

Those BISAM open executors which initialize channel programs include conversion to a non-RPS state 
as part of their processing. 

BISAM Open Phase Organization 

When a DCB is being opened for BIS AM processing, one or two of the validation modules are selected 
to correlate format 2 DSCB and DCB fields. The validation modules (IGG01920, IGG01922, and 
IGG01950) are also used for resume load and scan mode opens. 

If the records are fixed length records, modules IGG01920 and IGG01922 are selected to do the 
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validation and initial BIS AM open processing. Executed concurrently, these two modules reset certain fields 
in the format 2 DSCB which may be incorrect if the data set was previously closed improperly. 

If variable length records are used, module IGG01950 is selected to merge end pointers from the 
Format 2 DSCB to the DCB and adjust, if necessary, the independent overflow control imformation in the 
DCB. 

IGG01950 is the VLR counterpart to module IGG01920. It is the first BISAM open module entered 
when variable length record are being added. 

The validation module may not be executed, although it will be entered, if the user has specified that 
the data set may be shared by other tasks (DISP=SHR). It will not be executed in that case because another 
DCB may have already been opened for the data set and a DCB FA (DCB Field Area) already set up for the 
purpose of maintaining the DCB fields. (See the DCB Integrity discussion and the description of the 
DCBFA). 

Module IGG0192W or IGG0192H receives control from modules IGG01920 and IGG01922, or module 
IGG01950 during the opening of a DCB for BISAM. 

BISAM Open Executor IGG0192H (Fixed Length Records) 

1. Moves the format 2 DSCB fields needed for BISAM into the DCB. 

2. Obtains and structures the work areas and provides pointers to the work areas. 

3. If the data set is on an RPS (Rotational Position Sensing) device, module IGG0192H issues a 
GETMAIN for an eight-byte larger work area (the BISAM DCB work area). Four of these bytes are 
used as a pointer (DCWSIOA) to the RPS start I/O appendage module, module IGG019JH. The 
other four bytes are not used. 

BISAM Open Executor IGG0192W (Variable Length Records) 

1. Moves the format 2 DSCB fields needed for BISAM into the DCB. 

2. Obtains and structures the work areas and provides pointers to the work areas. 

3. For RPS, module IGG0192W will issue a GETMAIN for a work area 16 bytes larger than usual. 
Four bytes will be used for the RPS SIO Appendage pointer (DCWSIOA). One fullword will be 
unused. The last two fullwords will be used for the non-last and last record overhead on prime and 
overflow, respectively. (See fields DCWIPG, DCWLPG, DCWIOG, and DCWLOG in the BISAM DCB 
work area for VLR with RPS.) 

BISAM Open Executor IGG0192P 

1. When the high-level indexes are to be searched in main storage, module IGG0192P schedules CP87 
to read the high level index into the user specified work area. The work area is specified in the DCB 
at DCBMSHI. CP87 is contained in module IGG0192P. 

2. After reading the high-level index into the user work area module IGG0192P saves the address of 
the last active entry in the high-level index. 

BISAM Open Executor IGG0192I 

1. Selects and loads the proper privileged module, according to the options specified in DCBMACRF 
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by the user. (See Table 3, for the privileged macro-time module.) 

2. Selects, loads, and initializes CP1 when cylinder and master indexes are to be searched on the direct 
access device. 

3. Selects, loads, and initializes CP2 when the cylinder index is the highest level index to be searched 
on the device. 

4. If an RPS device is being used, IGG0192I will save and restore the high order byte of DEBISAD 
when storing the address of the privileged macro-time module. (See step 1 above.) This is done to 
preserve the RPS bits at DEBRPSID. 

5. With RPS, this module will also initialize fields in the 16-byte larger DCB work area. 

6. Initialize error queue counter to 2XNCP+BUFNO. 

BISAM Open Executor IGG0192K (READ K, READ KU, WRITE K) 

1. Selects and loads CP4, CP5, CP6, and CP7; initializes these channel programs. 

2. Selects and loads the nonprivileged macro-time routine, module IGG019JV, for READ K, READ 
KU, and WRITE K. 

3. If dynamic buffering is specified, loads the dynamic buffering module, IGG029JI. 

4. If RPS is used and the dynamic buffering module loaded, IGG0192K also sets bit 3 of DEBRPSID. 
BISAM Open Executor IGG0192L (WRITE KN) 

1. Loads the set of WKN channel programs needed with the data set being processed (blocked or 
unblocked records, user work area or system work area, etc. (See BISAM channel programs, Figures 
42-54.) 

2. Loads the nonprivileged routines macro-time routines for WKN, module IGG019JW. 

3. Initializes CP8 and CP10B. 

BISAM Open Executor IGG0192M (WRITE KN with Fixed Length Records) 

1. Initializes CP14 which is used to update the Cylinder Overflow Control Record (COCR), and write 
overflow records. There are six different versions of this channel program. These versions are 
described in Appendix B. 

BISAM Open Executor IGG0192X (WRITE KN with Variable Length Records) 

1. Performs the same functions as IGG0192M as described above. See CP14 in the Appendix B. 
BISAM Open Executor IGG0192Q (WRITE KN) 

1. Initializes CP1 or CP2, CP10A, CP15, CP16, and CP17. 

BISAM Open Executor IGG0192O (WRITE KN, Fixed Length Records, user work area) 

1. Initializes CP12 or CP13 series, and CP123W; delete skeleton channel program modules. 
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BISAM Open Executor IGG0192N (WRITE KN, Fixed Length Records, System Work Area) 

1. Initializes CP9 series or CPU Series, delete skeleton channel program modules. 
BISAM Open Executor IGG0192Z (WRITE KN, Variable Length Records) 

1. Initialize CP 12 AV, CP12BV, and CP123WV; delete skeleton channel program modules. 
BISAM Open Executor IGGO 19 2J 

1. Module IGG0192J selects and loads the proper appendage modules and one asynchronous module. 
Refer to the tables of BISAM appendage and asynchronous modules, Tables 5 and 6. 

2. Initializes the interrupt request block (IRB) used by the asynchronous routine. 

3. If any of the RPS bits at DEBRPSID in the DEB are set, IGG0192J loads the RPS SIO appendage, 
IGG019JH. If bit 3 of DEBRPSID is set, the address of IGG019JH (the SIO appendage for BISAM 
with RPS) is stored in the DCWSIOA field of the BISAM DCB work area. Otherwise, the address is 
stored in the DEB appendage vector table. 

During processing, if bit 3 of DEBRPSID is on, control is passed to IGG019JH. 

BISAM Processing Phase Operations 

BISAM processing is done by channel programs which read and search indexes, prime data tracks, and 
overflow chains. They also write prime data and overflow records and index entries. The channel programs 
are set up and controlled by the BISAM processing routines. 

All BISAM READ and WRITE macro instructions enter a non-privileged macro-time routine, which 
enters a privileged macro-time routine where I/O interruptions may be readily enabled or disabled. The 
privileged routine returns to the non-privileged routine upon completion. The non-privileged routine then 
starts a channel program, if possible, and returns control to the user. 

When a channel program ends, the I/O supervisor passes control to an appendage routine which analyzes 
the manner in which the channel program ended and determines the action to be taken as a result. This 
involves either a special return to I/O supervisor or the scheduling of an asynchronous routine. The overall 
control flow through these routines is shown in Figure 41. 

The user can supply his own buffers or use the dynamic buffering option of BISAM. In the latter case, 
the dynamic buffering routine obtains and frees buffers for each processing request. 

A check routine is available to all BISAM requests to allow the user to analyze processing errors. 

Information about the data set and the processing requests is communicated among the processing 
routines and the channel programs in control blocks, work areas, and queues. This section describes the 
processing routine logic, the flow of control through the channel programs, and the relations of the data 
areas to each other and to the processing routines and channel programs. 

Descriptions of the channel programs are in Appendix B. Section 5 contains detailed layouts of the data 
areas. 
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An Example of BISAM Processing Flow 

Whenever a BISAM macro is issued, a nonprivileged macro-time module is entered. In this example the 
nonprivileged module entered will be IGG019JW after a WRITE KN is issued. 

1. The WRITE KN is issued from the processing program. 

2. The nonprivileged module is entered; module IGG019JW issues an SVC 54 to disable interrupts and 
link to the privileged macro-time routine. For a WRITE KN without READ K, WRITE K, or READ 
KU the privileged routine module entered is IGG019JX. (See Table 3.) 

3. Module IGG01 9 JX: 

(a.) Initializes the IOB 

(b.) Determines if another WKN is in progress; and if so, the IOB is added to the on-schedule queue 
and the on-schedule switch is set on. 

(c.) If another WKN is not in progress and it is necessary to search the high level index in main 
storage the following operations are done: 

(l.)The first WKN channel program is initialized. 

(2.) The SEEK address for the channel program is determined, using the DCBFTHI field. 

(3.) If the track index is the highest level of index (this is assumed for this example), the 
appendage code is set to 8. 

4. Channel program 8 is initialized— CP8 is used to determine where the new record should be inserted. 

5. Return to the SVC 54 issued by IGG019JW. 

6. The SVC 54 exits to the original nonprivileged module. 

7. Module IGG019JW tests the on-schedule switch, if it is set RETURN is made to the processing 
program. If the on-schedule switch is off, an EXCP is issued using the IOB just created. 

8. When the channel program ends, the appendage routine uses the appendage code (8, in this case. See 
step 3.) in the IOB and the appendage vector table in the appendage module to select the needed 
appendage routine for this particular channel program. 

Privileged Macro-Times Routines 

A privileged macro-time routine schedules the first channel program for a given macro instruction. 
BISAM has several modules of privileged macro-time routines (Refer to Table 3.) However, no more than 
one of these modules is loaded into storage by the BISAM open executor, IGG0192I,for a single DCB. 

Selection of the macro-time routine module to be loaded depends on the BISAM macro instructions 
specified in the DCB, the record format, and the number of levels of index which are searched on a direct 
access device (rather than searched in main storage). These factors determine the choice of channel 
programs needed in a macro-time routine. 

A nonprivileged macro-time routine enters a privileged macro-time routine by means of an SVC 54 
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(Disable) instruction to disable I/O interruptions. If the IOB being reused has a dynamic buffer associated 
with it, the buffer is returned to the dynamic buffer pool. 

For any read or write request, the routine checks the error queue and the update queue, to see if any 
existing IOB refers to the DECB (Data Event Control Block) of the present request. If so, the old IOB is 
reused for the current request. If the IOB being reused has a dynamic buffer associated with it, the buffer 
is returned to the dynamic buffer pool unless the request requires a dynamic buffer. If no IOB is found 
that refers to the DECB of the present request, and a dynamic buffer must be assigned to the request, 
DECBAREA is zeroed to force the assignment of a dynamic buffer in function 1 of the dynamic buffer 
module (IGG019JI). 

When a WRITE K macro is issued after a READ KU, both with the same DECB, an IOB for that DECB 
should be on a queue called the update queue (as result of the READ KU). If the IOB is not on the update 
queue, an invalid request condition exists and the privileged routine returns to the calling nonprivileged 
routine. Otherwise, the privileged routine for the WRITE K associated with a previous READ KU removes 
the IOB from the update queue. In all other cases, the routine constructs an IOB for the request. 

Subsequently, the privileged routine attempts to schedule the first channel program needed for the 
user's request. If the channel program is available and the high level index is to be searched in main storage, 
the routine performs this search. If the search is unsuccessful, a record-not-found condition exists and the 
routine posts the DECB as complete, sets the appropriate exceptional condition bit in DECBEXCD, and 
returns control to the nonprivileged routine. (Searching is always successful in the case of WRITE KN.) If 
the search is unsuccessful or no search in main storage is necessary, the routine determines the first channel 
program to be scheduled. If it is available, the routine schedules it. If it is unavailable, an unscheduled 
condition exists, and the routine queues a request for the channel program by placing the IOB on a queue 
called the unscheduled queue. The routine then returns to the nonprivileged routine. 

A special case exists if the WRITE KN macro instruction is being used with other READ or WRITE ( 

macro instructions. Possible conflicts between these macro instructions are avoided because WRITE KN 
changes indexes and record positions. Its channel programs are not scheduled if another WRITE KN, 
WRITE K, READ K, or READ KU has been scheduled but not completed. The WRITE KN channel 
programs are not scheduled if there are IOBs on the update queue or if there are IOBs on the unscheduled 
queue for reasons other than those associated with WRITE KN. Similarly, WRITE K, READ K, and READ 
KU are not scheduled if a WRITE KN has been scheduled but not completed or if a previous WRITE KN 
cannot be scheduled. 

NOTE: Entry to the privileged routine from the asynchronous routine is also possible. In this case, the 
return will be to the asynchronous routine. 

Nonprivileged Macro-Time Routines 

There are two modules of nonprivileged macro-time routines. (Refer to Table 4.) The READ K, READ 
KU, and WRITE K macro instructions link to one, and the WRITE KN macro instruction links to the other. 

If the user has specified a record length in a READ K, READ KU, or WRITE K macro instruction, the 
respective macro instruction routine will check the record length specified against the logical record length 
supplied by the user in the DCB (DCBLRECL). If the length specified in the macro instruction is invalid or 
if the user has specified a record length in a WRITE KN macro instruction, the nonprivileged macro-time 
routines set the record length check indicator in the DECB exceptional condition code field (DECBEXCD 1) 
and return control to the user. Otherwise, an SVC 54 is issued to link to a privileged macro-time routine. 
The privileged routine, upon completion, returns to the nonprivileged routine. 

If no channel program was scheduled, the nonprivileged macro-time routine issues the EXCP and 
returns to the user. When the channel program is completed, an I/O interruption takes place and the I/O 
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supervisor links to an appendage routine. (Appendage routines are described in the BISAM "Appendage and 
Asynchronous Routines" section.) 

If no channel program was scheduled because of an invalid request, a no record found condition, or an 
unscheduled condition, the nonprivileged routine returns to the user. In the case of an invalid request, the 
routine posts the DECB 'complete' and returns to the user. 

Appendage and Asynchronous Routines 

The BISAM appendages and asynchronous routines are shown in Tables 5 and 6 respectively. 

Appendage routines determine the action to be taken when a channel program ends. Asynchronous 
routines perform that action except in certain cases, explained below. Appendage modules consist of an 
appendage vector table and a group of appendage routines. Asynchronous modules consist of an 
asynchronous vector table and a group of asynchronous routines. 

When a channel program ends, a general appendage routine uses a combination of the appendage code 
in the IOB and the appendage vector table for the module to select the appropriate appendage routine. A 
list of appendage and asynchronous codes is contained in Section 6 of this manual. 

If the channel program is complete, the appendage routine schedules an asynchronous routine which 
sets up the next channel program. If the channel program is not complete, the appendage routine returns to 
IOS to reschedule that channel program. 

If the channel program did not end in error, the action taken depends on whether (1) it is the final 
channel program needed to satisfy the user's request; (2) an additional channel program is needed to satisfy 
the request and no other requests are waiting for the channel program just completed; or (3) neither of the 
above conditions exists. 

In the first case, the appendage routine schedules an asynchronous routine to report completion to the 
user. If the data set is shared (DISP=SHR), the DCBFA is reset as needed before completion is posted. In 
the second case, the appendage routine schedules the additional channel program by a special return to I/O 
supervisor. In the third case, the appendage schedules an asynchronous routine which in turn schedules an 
additional channel program for the current request and, if possible, reschedules the channel program just 
completed for a waiting request. 

If the present request used a dynamic buffer, the address of the buffer is saved in the IOB before the 
IOB is placed on the update queue or the error queue. 

The first time a channel program ends in error, the appendage routine returns control to the I/O 
supervisor to retry the operation. If the I/O supervisor finds the error is permanent, it reenters the 
appendage routine which schedules an asynchronous routine to report the error to the user and place the 
request on the error queue. 
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Dynamic Buffering Routines 

The READ K and READ KU macro instructions require an area into which a block can be read. The 
user may supply this area or, use BISAM routines to provide the area through the dynamic buffering option 
of the macro instruction. 

When the dynamic buffering option is used, BISAM routines release the buffer when a corresponding 
WRITE K macro is completed. If no WRITE K is issued, the processing program may release the area 
obtained with dynamic buffering for a READ K or READ KU by issuing a FREEDBUF (Free Dynamic 
Buffer) macro instruction. 

Also, the privileged macro routine automatically releases the buffer if a READ macro is followed by a 
WRITE KN or another READ, reusing a DECB, without an intervening WRITE K or FREEDBUF. 

The dynamic buffering module contains two routines. The first, called function 1, obtains buffers in 
response to the dynamic buffering option of a READ K or READ KU macro instruction. The second 
routine, called function 2, frees the buffers. 

Function 1 is an appendage routine entered by the I/O supervisor just prior to executing the scheduled 
channel program. When used by the FREEDBUF macro instruction, function 2 is considered a macro-time 
routine. When used on completion of a WRITE K macro instruction, Function 2 is considered as 
asynchronous routine. The Function 2 routine of IGG019JI, when executed from FREEDBUF, also frees 
any IOB on the error or update queue that is associated with the DECB, regardless of whether a dynamic 
buffer is also associated with the DECB. 

Rather than returning to IOS, IGG019JI passes control to the RPL SIO appendage (IGG019JH) if bit 3 
of DEBRPSID is set. 

A description of the BISAM Dynamic Buffering Buffer Control Block appears in Section 5. 
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Check Routine 

The check routine module, loaded when check is specified in the DCBMACRF field, gets control each 
time the user issues a CHECK macro instruction. The check routine examines the DECB exception code 
(DECBEXCD) fields. If a permanent error has been posted, it searches the error queue for the 
corresponding IOB. The check routine then either gives control to the user's synchronous error (SYNAD) 
routine; or, if the user has no SYNAD routine, issues SVC 55(EOV) to request an ABEND with a code of 
'001'. 

Upon entry to the SYNAD routine, register will contain the address of the first sense byte of the IOB 
(sense information is valid only when a unit check has occurred) and register 1 will contain the address of 
the DECB. In the SYNAD routine, the user can issue a SYNADAF macro instruction. It will place all 
pertinent information on the request in a buffer and return the buffer's address to the user. For a 
description of the SYNADAF macro instruction, refer to the publication IBM System/360 Operating 
System: Supervisor and Data Management Macro Instructions. 
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BISAM Processing Phase Organization 
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Figure 41. BISAM Processing Flow 
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Table 3. BISAM Privileged Macro-Time Modules 



Macro Instructions 


Additional Considerations 


Module Names 


READ K, WRITE K 
READKU 


Fixed Length Records 


*NLSD=0 


IGG019J6 


NLSD#) 


IGG019J7 


Variable Length Records 


IGG019H7 


WRITE KN 


None 


IGG019JX 


READ K, WRITE K 
READ KU in combination 
with WRITE KN 


Fixed Length Records 


NLSD=0 


IGG019J0 


NLSD#) 


IGG019J3 


Variable Length Records 


IGG019H3 


*NLSD represents the number of levels of indexing (cylinder or master indexes) which are searched 
on the device. 

NLSD=0 represents the case where the data set was allocated no more than one cylinder and has no 

cylinder or master indexes or there is only a cylinder index and it is searched in main storage. 

N LSD/=0 means: ( 1 ) there is only a cylinder index which is searched on the device and (2) there are 
at least two levels of indexing, one of which is searched in main storage and the other is 
searched on the device. 



Table 4. BISAM Nonprivileged Macro-Time Modules 



Macro Instructions 


Additional Considerations 


Module Names 


READ K, WRITE K, READ KU 


None 


IGG019JV 


WRITE KN 


None 


IGG019JW 



Table 5. BISAM Asynchronous Modules 



Macro Instruction 


Additional Considerations 


Modules 


READ K, WRITE K, READ KU 


Fixed Length Records 


IGG019GX 


Variable Length Records 


IGG019IX 


WRITE KN 


Fixed Length Records 


No Write Check 


IGG019GY 


Write Check 


IGG019GV 


Variable Length Records 


IGG019IY 


READ K, WRITE K, READ KU 
in combination with 
WRITE KN 


Fixed Length Records 


No Write Check 


IGG019GZ 


Write Check 


IGG019GW 


Variable Length Records 


IGG019IZ 
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Table 6. BISAM Appendage Modules 



Macro Instructions 


Additional Considerations 


Module Names 


READ K, WRITE K, 
READ KU 


Fixed Length Records 


No Write Check 


IGG019G8 


Write Check 


IGG019G9 


Variable Length Records 


IGG019I9 


WRITE KN 


Fixed Length Records 


Unblocked, System Work 
Area, No Write Check 


IGG019G0and IGG019GL 


Unblocked, System Work 
Area, Write Check 


IGG019G1 and IGG019GM 


Unblocked, User Work 
Area, No Write Check 


IGG019G2andlGG019GL 


Unblocked, User Work 
Area, Write Check 


IGG019G3and IGG019GM 


Blocked, System Work 
Area, No Write Check 


IGG019G4and IGG019GL 


Blocked, System Work 
Area, Write Check 


IGG019G5and IGG019GM 


Blocked, User Work 
Area, No Write Check 


IGG019G6and IGG019GL 


Blocked, User Work 
Area, Write Check 


IGG019G7and IGG019GM 


Variable Length Records 


IGG019IOand IGG019IM 


READ K, WRITE K, 
READ KU in 
combination with 
WRITE KN 


Fixed Length Records 


Unblocked, System Work 
Area, No Write Check 


IGG019G0and IGG019GN 


Unblocked, System Work 
Area, No Write Check 


IGG019G1 and IGG019GO 


Unblocked, User Work 
Area, No Write Check 


IGG019G2and IGG019GN 


Unblocked, User Work 
Area, Write Check 


IGG019G3and IGG019GO 


Blocked, System Work 
Area, No Write Check 


IGG019G4and IGG019GN 


Blocked, System Work 
Area, Write Check 


IGG019G5and IGG019GO 


Blocked, User Work 
Area, No Write Check 


IGG019G6and IGG019GN 


Blocked, User Work 
Area, Write Check 


IGG019G7and IGG019GO 


Variable Length Records 


IGG019IOand IGG019IN 


RPS SIO Appendage 




IGG019JH 
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Table 7. BIS AM Channel Program Modules 



Macro Instructions 


Additional Considerations 


Module Names 


Channel Programs 


Any READ or WRITE 


NLSD = 1 


IGG019JK 


2 


NLSD>1 


IGG019JJ 


1 


READ K, WRITE K, READ KU 


None 


IGG019JL 


4 5 6 7 


Write Check 


IGG019JM 


4 5W 6W 7W 


WRITE KN 


Fixed Length Records 


Unblocked, System Work 
Area, No Write Check 


IGG019JN 


8 9A 9B 9C 10A 
10B 14 15 16 17 


Unblocked, System Work 
Area, Write Check 


IGG019JP 


8 9 A 9BW 9CW 10AW 
10BW 14W 15 16 17W 


Unblocked, User Work 
Area, No Write Check 


IGG019JR 


8 10A 10B 12A 12B 
12C 14 15 16 17 


Unblocked, User Work 
Area, Write Check 


IGG019JT 


8 10AW 10BW 12A 12B 
12CW 14 15 16 17W 123W 


Blocked, System Work 
Area, No Write Check 


IGG019JO 


8 10A 10B 11A 11B 
14 15 16 17 


Blocked, System Work 
Area, Write Check 


IGG019JQ 


8 10AW 10BW 11A 11BW 
14W 15 16 17W 


Blocked, User Work 
Area, No Write Check 


IGG019JS 


8 10A 10B 13A 13B 
13C 14 15 16 17 


Blocked, User Work 
Area, Write Check 


IGG019JU 


8 10AW 10BW 13A 13B 
13CW 14W 15 16 17W 123W 


Variable Length Records 


IGG019HP 


8 12AV 12BV 14/14W 
15 16 17 123WV 



BISAM Channel Programs 

BISAM uses the channel programs enumerated below. They are described in Appendix E. The flow of 
control through the READ K, WRITE K, and READ KU channel programs is shown in Figure 42. The flow 
for WRITE KN channel programs is shown in Figures 43 through 54 channel program modules are indicated 
in Table 7. 

NOTE: Figures 42 through 54 show only the normal (non-error) flow of control through the channel 
programs. 

For WRITE KN, two different methods are used to add records to the data set. For fixed length records 
with a system work area, the prime track is rewritten and the index entries are updated before the overflow 
record is written. 

For fixed length records with a user-supplied work area and for variable length records, the overflow 
record is written before the prime track and index entries. This requires two different methods of executing 
GP14 as explained in Appendix B. 
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CP1 

CP2 

CP4 

CP5 

CP5W 

CP6W 

CP7 

CP7W 

CP8 



Used to search master and cylinder indexes. 

Used to search a cylinder index when it is the highest level to be searched on a device. 

Used to search a track index. CP5 and CP5W is always appended to this channel program. 

Used to search prime data tracks and to read or write prime data records. 

Write checking version of CP5. 

Write checking version of CP6. 

Used to write data records when WRITE K is associated with READ KU. 

Write checking version of CP7. 

Used to search track indexes and search prime data tracks for the place to insert a new 
record. There are separate versions for fixed length records and variable length records. 



The following channel programs are used for insertion of fixed length unblocked prime data records 
when the work area is provided by the system. 



CP9A 
CP9B 

CP9BW 
CP9C 

CP9CW 



Used to read into the work area the record occupying the position at which an insertion is 
to be made. 

Used to: (1) read an even-numbered record after writing a record into the previous slot 
and (2) write back the last record of a non-EOF track when the number of records 
bumped is odd. 

Used in place of 9B when write checking is specified. 

Used to: (1) read an odd-numbered record after writing a record into the previous slot 
and (2) write back the last record of a non-EOF track when the number of records 
bumped is even. 

Used in place of CP9C when write checking is specified. 



The following channel programs are used for fixed length records regardless of whether they are 
blocked or unblocked or whether the work area is obtained by the system or the user. 

CP10A Used to write a record or block to replace an EOF mark. 

CP10AW Used in place of CP10A when write check is specified. 

CP10B Used to write an EOF mark. 

CP10BW Used in place of CP10B when write checking is specified. 
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The following channel programs are used for insertion of fixed length prime data records into blocks 
when the work area is provided by the system. 

CP1 1A Used to read into the work area a block to be bumped. 

CP1 IB Used to write back a rearranged block. 

CP1 1BW Used in place of CP1 IB when write checking is specified. 

The following channel programs are used for insertion of fixed length unblocked prime data records 
when the work area is supplied by the user. 

CP12A Used to read all records from the track following the slot into which a new record is to be 

inserted. 

CP12B Used to write a new record followed by the records read by CP 12 A. 

CP12C Used to write a new record with a key identical to that of a record which, although 

logically deleted, is still physically present on the track. 

CP12CW Used in place of CP12C when write checking is specified. 

The following programs are used for insertion of variable length records, blocked or unblocked. 

CP12AV Used to read all records from the track following the slot into which a new record is to be 

inserted. 

CP12BV Used to write a new record and the records read by CP12AV. 

The following channel programs are used for insertion of fixed length prime data records into blocks 
when the work area is provided by the user. 

GP13A Used to read all blocks from the track following and including the slot into which a 

record is to be inserted. 

CP13B Used to write back the rearranged blocks read by CP13A. 

CP13C Used to write back a block if the insertion is a record with a key identical to that of a 

record which, although logically deleted, is still physically present within the block. 

CP13CW Used in place of CP13C when write checking is specified. 

The following channel programs are used regardless of whether records are fixed length or variable 
length, blocked or unblocked, or whether the work area is obtained by the system or the user. 

CP14 Used to update track index entries, update the Cylinder Overflow Control Record 

(COCR), and write overflow records. There are six different setups for this channel 
program. They are explained in Appendix B. 

There are separate versions for Fixed Length records and for variable length records. 

For variable length records and fixed length records with a user-supplied work area, CP14 
is divided into two parts. Part I writes the overflow record and Part II updates the COCR 
and index entries. See Appendix E for details. 

BISAM Operations 91 



CP14W Used in place of CP14 when write checking is specified. 

CP15 Used to read in the cylinder overflow control record and the overflow track index entry 

when a new record is added to the end of a data set. 

CP16 Used to search an overflow chain for (1) the record which logically precedes or is equal to 

the new record to be added or (2) the last record in the chain. 

CP17 Used to change the key in a normal or normal and overflow track index entry or in a 

higher level index entry. 

CP17W Used in place of CP17 when write checking is specified. 

CP87 Used to read a high-level index into main storage. 

CP123W Addendum to CP12A and CP12B or to CP13A and CP13B when write checking is 

specified (fixed length records). 

CP123WV Addendum to CP12BV when write checking is specified (variable length records). 



92 



READK 
WRITE K 
READKU 



Create I OB for 
Request 





Abnormal End 



CP 6/6W 



1 Search overflow/ 

chain_ 

ad or write I 
records 



Free IOB 



Normal End 



READK 



WRITE K 




READ KU 



Type of request 



Place IOB on 
Update Q 



FREEDBUF>— v 



[ Request complete ) 



WRITE K 



Remove IOB from 
Update Q 




NOTE: Search is Key High or 
Equal. If unsuccessful, "No Record 
Found" condition exists. 

*FREEDBUF may be issued by the 
user or automatically by the 
privileged macro-time routine. 



Free IOB 



<D 



( Request complete ) 



Figure 42. Read K, Write K, Read KU Channel Program Flow 
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WRITE KN 



Create I OB 
for request 



CP2 



Search 

cylinder 

index 



^Cylinder 




Yes 



Search highest 
level index 




Yes 



■0 



CP1 



^ , Search 
"^7 cylinder and 
Cylinder / master 
and Master / indexes 



Track 



s\. 





Yes 



4 Add to end J 



Fixed Length Records, System Work Area 
Fixed Length Records, User Work Area 
Variable Length Records 



-Figure 49 
-Figure 50 
-Figure 51 



CP8 



Search track 

index 

Search prime j 

index 




Add to overflow 







Fixed Length Records, System Work Area -Figure 52 
Fixed Length Records, User Work Area -Figure 53 
Variable Length Records -Figure 54 



Fixed Length Unblocked Records, System Work Area -Figure 44 

Fixed Length Unblocked Records, User Work Area -Figure 45 

Fixed Length Blocked Records, System Work Area -Figure 46 

Fixed Length Blocked Records, User Work Area -Figure 47 

Variable Length Records -Figure 48 



Figure 43. Write KN Channel Program Flow— Index Searching 
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Fixed Length 
Unblocked Records, 
System Work Area 



( Add to prime ) 



From Figure 43 



CP9B 



I Write new 
record in place/ 
of original 



Yes 



<: 



Request complete r^ 



teV 



Leftover 
Record Deleted 



CP17 



Update key in i 
normal track 
index entry 








Report "duplicate 
record" error to 
user 



Report "Space 
not found" 
error to user 




CP9B 



f Write new 
record in place 
of original 



( Bumped Record to 



be Deleted 



Bumped Record Written 
in Overflow 



CP 14 Setup 1 j 

i Write overflow 
{ record, COCR, 
/and index entries/ 



CP17 



1 Change key in 
normal track 
index entry 











CP9B 



/Write new record/ 
I Read (even) / E0F R ^ 
bumped record/ 



EOF Not Read 




Yes 




Left Over Record 
i f Written in Overflow 



CP9C 

Write 1st (add) i 
record back 
Read 3rd 
(add) record 



CP10A 



EOF Read . 



Write record 
to replace 
EOF mark 



EOF Not Read 



CP 14 Setup 1 

/Write overflow 
/record, COCR, 
/and index entries/ 



CP10B 



Write 
EOF mark 



( Request complete J 



[ Request complete j 



Figure 44. Write KN Channel Program Flow— Add to Prime (Fixed Length Unblocked Records, 
System Work Area) 
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Fixed Length 
Unblocked Records, 
User Work Area 



(Insert to ^ 
prime J 



CP12A 



Read all blocks/ 
after insertion \ 
point 



CP12C 



/Write back block 
' after inserting 
new record 



Yes 



f Request complete V 



Report "duplicate 
record" error 
to user 



No 




_/v 



Yes 



Last track full 



No 

— ► 



Yes 



CP12B 



Write out 
prime track 



CP108 



CP12B 



Write EOF 



Write out 
prime track 



QP14 
r Setup 1 part 2 
r Update COCR 
and track 
indices 



CP17 



Change key of j 
normal track 
index entry 



Q 



From Figure 43 






Request complete J 



( Request complete ) 



Yes 



CP12B 



Rewrite 

rearranged 

track 



CP10B 



Write new 
EOF mark 



( Request complete J 



Figure 45. Write KN Channel Program Flow-Add to Prime (Fixed Length Unblocked Records, User 
Work Area) 
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Fixed Length 
Blocked Records, 
System Work Area 



►, f Add to prime J 
ea \ J 



From Figure 43 



( Request complete \ 



Report "duplicate 
record" error to 



No 




f Request complete r 



Report "Space 
not found" 
error to user 



(CP 14 Setup 1 
f Write overflow 

record, COCR, 

and index 

entries 




CP17 



Change key in 
normal track 
index entry 



Yes 



[ Request com plete\ 



Yes 



Last record 
padding 



Yes 



No 




Yes 





No 



<D 



CP 11A 



' Read block oc- , 
cupying inser- 
tion position 




Yes 



CP 11B 



Write out 

rearranged 

block 



Set last block 
and last track 
full switches 
on 



Yes 





Yes 



Form padding 
records following 
bumped record in 
new block 



CP 10A 



Write new 
block over 
EOF mark 




CP 10B 



Write new 
EOF mark 



►{Request complete 



D 



Figure 46. Write KN Channel Program Flow-Add to Prime (Fixed Length Blocked Records, System 
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Fixed Length Blocked Records, 
User Work Area 



( Insert to prime ) 



From Figure 43 



/Write back block/ 



Yes 



Old 
^record marked for 



/ after inserting / 
/ new record / 


^sdeletion ./^ 
|No 








r 






i 




Report "duplicate 
record error 
to user 


(n ,^ 


I Request complete J 










Last 
*■ C^block previously 
full 




Insert new record 
in block 



Rearrange track 



Form padding 
records following 
bumped records 
in new block 



( Request complete ) 




(Request complete ) 



Set last block 
and last track 
full switches ON 



(Request complete ] 



Figure 47. Write KN Channel Program Flow-Add to Prime (Fixed Length Blocked Records, User 
Work Area) 
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Variable Length Records 



f Add to Prime J 



From Figure 43 



CP12AV 



Read records 
after inser- 
tion point 



CP 12BV 



Write back 
track with 
new record 



Yes 




Yes 



( Request complete V 




Report "duplicate 
record" error 
to user 



Merge new 
record and 
reorganize 
records 




( Request complete 
Figure 48. Write KN Channel Program Flow-Add to Prime (Variable Length Records) 
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Fixed Length Records, 
System Work Area 



( Add to end ) 



From Figure 43 



CP15 



Read COCR 
and overflow 
track index 
entry 




CP 16 Setup 2 

Search over- 
flow chain for 
last record 




CP 14 Setup 2 ! 
Write overflow 
record, COCR 
and index 
entries 



CP 14 Setup 3 

^ Write overflow 

records, COCR/ 

and index 

entries 






Executed once for 
each index level 



CP 10A 



Write new 
record over 
EOF mark 



Write new 
EOF mark 



CP 17 



Update track 
index entries 



CP17 



Update master 
index entry 



(Request complete 



Figure 49. Write KN Channel Program Flow-Add to End (Fixed Length Records, System Work Area) 
100 



Fixed Length Records 
User Work Area 



From Figure 43 




Executed 
once for 
each index 
level 



Figure 50. Write KN Channel Program Flow-Add to End (Fixed Length Records, User Work Area) 
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Variable Length Records 



From Figure 43 



( Add to Prime J 



Figure 48 




Figure 51. Write KN Channel Program Flow -Add to End (Variable Length Records) 
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Fixed Length Records, 
System Work Area 



CP 14 Setup 4 J 



Write over- 
flow records 
and COCR 



i f 

© 



( Add to overflow ) 



From Figure 43 




Yes 



Preceeding 

Record 

Exists 



F CP 16 Setu p 3 
/Search over 
' fiow chain for 
togically pre- 
ceeding record/ 



Hew Record 
1st on Chain 



Equal Record Exists 



Yes 




f CP 14 Setup 5 
/Write overflow 
record, COCR 
and index entry 



CP 14 Setup 6 



f Write new rec- 
ord over delet- 
ed one and 
change index 



Report "duplicate 
record" error to 



*t Request complete \ 








Yes 



CP10B 



Write EOF 



Figure 52. Write KN Channel Program Flow—Add to Overflow (Fixed Length Records, System Work 
Area) 
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Fixed Length Records, 
User Work Area 




From Figure 43 




Yes 



CP 16 Setup 3 

Search overflow/ 
chain for 
logically pre- 
ceedingrecord/ 



New Record 



1st on Chain 



Equal Record 
Exists 



Yes 



CP 14 Setup 6 j 



CP10B 



Write new 
EOF mark 



CP14 
1 S etup 4 par t 2 

Write 
COCR 



Yes /Write new 
^^ record over 
deleted one and 
change index 



f Request complete j 



Report "duplicate 
record" error to 
user 



C \ 

I Request complete J 



CM 4 
Setup 5 part 1 

Write over- 
flow record 



Independent 
overflow 



Yes 



CP10B 



Write new 
EOF mark 



"«- 



CP14 
(Setup 5 part 2 
f Write index en- 
try and (if cy I. 
off) COCR 



No 




I Request complete ) 



Figure 53. Write KN Channel Program Flow-Add to Overflow (Fixed Length Records, User Work Area) 
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Variable Length Records 



From Figure 43 




Figure 54. Write KN Channel Program Flow-Add to Overflow (Variable Length Records) 
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BISAM Control Blocks and Work Areas 

Information about the data set and processing requests is carried in control blocks, work areas, and 
queues. The address relationships of the control blocks to the processing modules, work areas, buffers, 
channel programs, IOB, and channel program queues are shown in Figures 56 and 57. Figure 55 below 
shows the elements of a BISAM read or write request. 



Data set 



Buffer 



Channel 
program 



Control blocks 

and 

work areas 




DCB 



Processing 
modules 



Figure 55. Elements of a BISAM Request 
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DCS 



2C 



4C 
58 
5C 



6C 



£8 
F4 



.OCB 



-18 

-14 



8 
18 
1C 



2C 



DCBDEBAO 



OCBSETL 
DCBLRAN 
OCBLWKN 



DCBFREED 



OCBWKPT2 

0C8WKPT4 
DCBWKPT5 



t CE appendage table 
t AE appendage table 



DEB1RBAD 
OEBPCBAD 
DEBAPPAD 



0EBD15AD 



Check module 



Non-privileged 
marco module 
{Write KM} 




{created dynamically by Open) 



Asynchronous 
module 




Mon-privileged 
macro m&duie 
{Non-Write KH) 



Dynamic 
buffering 
module 



Appendage 
module 
(part 2) 



Figure 56. BIS AM Control Blocks and Processing Modules 
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DCBMSWA 
DCBMSHI 

DCBWKPT1 
DCBWKPT2 
DCBWKPT3 




Full-track work a 



Storage area for highest level 
index (if searched in core) 



DCB WORK AREA 



CP1/2 



I There is one copy of 

I CP1/2 and the Write 

I KN CP's. They are 

| described by DSECTS 

| in processing module; 

■ addressed by using 

•— ' DCBWKTP1/3asa 
base register. 



CP8 

followed by 
other required 
Write KN CP's 



DCWFCP4 

DCWFCP7 

DCWFIOBU 

DCWLIOBU 

DCWFUPDI 

DCWLUPDI 



Unscheduled] 
_gueue J 

"Update 
cjueue 



[DCWFIOBE Error"! 
DCWLIOBE queuej 



CP5 



CP6 



( 



CP5 



\ 



CP7 




Figure 57. BISAM Work Areas and Queues 
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BISAM Close Phase 

The BISAM close executor (module IGG0202A) is entered from the I/O support CLOSE routine. It 
terminates outstanding I/O requests and releases main storage obtained for the work area and for channel 
programs. If dynamic buffering was used, it releases the system-obtained buffer area. The BISAM close 
executor passes control to the ISAM common close executor. 



BISAM close 
executors 



) 



Terminate 
I/O requests 
and free 
lOBs 




Yes 



Release 
dynamic 
buffering 
area 



Release 

work 

area 



(Pass control to X 
common ISAM J 
executor y 



Figure 58. BISAM Close Executor 
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SECTION 3: PROGRAM ORGANIZATION 



Flowcharts 



E 



Chart AA1 First Common Open Executor (IGG0192A) 



(Part 1 of 3) 
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Chart AA2 First Common Open Executor (IGG0192A) 



(Part 2 of 3) 



DETERMINE NUMBER 
OF MODULES TO 
BE LOADED 

ISL00D1 1 
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Chart AA3 First Common Open Executor (IGG0192A) 



(Part 3 of 3) 




GET MAIN 
STORAGE SPACE 
FOR DEB 



DETERMINE DEB 

SPACE 
REQUIREMENTS 



COMPLETE PREFIX 

AND BASIC 
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VECTOR TABLE 
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PERFORM 

WHERE-TO-GO 

LOGIC 



G 



j 



TO: IGG0192B 




ADD RECORDS^ 
DESCRIPTOR 
(4) TO DCBLRECL) 
\FOR VARIABLE " 
LENGTH 



VARIABLE 

LENGTH 

RECORDS 



CODE * 36. NO 
PRIME EXTENTS 



f ABE1 



r 





SET DCBBLKSIZE 
EQUAL TO 
DCBLRECL 



ABEND EXIT 



J 
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Chart AB1 Second Common Open Executor (IGG0192B) 



(Part 1 of 2) 



^-A1 .^ 

f ENTRY J 
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Chart AB2 Second Common Open Executor (IGG0192B) 



(Part 2 of 2) 



ISL02A4/ 
ISL02B4 r 
ISL02C4 



a 



TEST IF PRIME 

INDEX, OR OVFLO 

EXTENT; SET PTR 

TO NEXT EXTENT 
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1 



CLEAR EXTENT 
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NEEDED 
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CYLINDERS 
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PERFORM 

WHERE-TO-GO 

LOGIC 




c 




3 



TO: IGG0192C 
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Chart AC1 Third Common Open Executor (IGG0192C) 
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|freem 
I FR 



1 DSCB 


NO 
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Chart AD1 Fixed Length Validation Open Executor (IGG01920) 



r~ M ^ 

I ENTRY J 




I ABEND EXIT J 
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Chart AE1 First Load Mode Open Executor (IGG01921) 



(Part 1 of 3) 



^- A1 ^^ 

f ENTRY J 




Chart AE2 First Load Mode Open Executor (IGG01921) 



(Part 2 of 3) 
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Chart AE3 First Load Mode Open Executor (IGG01921) 



(Part 3 of 3) 
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Chart AF1 First Initial load Mode Open Executor (IGG0192D) 
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Chart AF2 First Initial Load Mode Open Executor (IGG0192D) 



(Part 2 of 3) 
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Chart AF3 First Initial Load Mode Open Executor (IGG0192D) 



(Part 3 of 3) 
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Chart AG1 First Resume Load Open Executor (IGG0196D) 
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Chart AH1 Last Scan Mode Open Executor (IGG01924) 



f ENTRY J 



MOVE FORMAT 2 

DSCB FIELDS TO 

DCB 



-D1- 



SET W1ICNOT = 

SMALLEST 

INTEGER 

CONTAINING 

BUFNO/2 




PLACE RPS SIO 
APPENDAGE ID ON 
SUBROUTINE NAME 
LIST 



-F5- 



SET SIO PREFIX 

IN DCB WORK 

AREA WTISECT 

W1ICPEXT 

W10CPEXT 



SET FCB 

COMPLETE BITS 

(W1ECBI AND 

W1ECBO) 



(WtiOB) 
(W1I — 



SET ECB AND DCB 
PTRS- WilECBAD 

WTOECBAD 

W1 IDCBAD 

W10DCBAD 



SET W1CURLEN 

(IN SCAN DCS 

WORK AREA) = 

DCBLRECL 



-H4- 



CIRB (CREATE 

REUSABLE IRB 

FOR ASYN 

ROUTINE) 



STORE IRB 

ADDRESS IN DEB 

AT DEBIRBAD 



SIS05END 
RELOOP 



PERFORM 

WHERE-TO-GO 

LOGIC 



c 



J 



Flowcharts 127 



Chart All First Scan Mode Open Executor Module (IGG01928) 
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Chart AI2 First Scan Mode Open Executor Module (IGG01928) 



(Part 2 of 4) 
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Chart AI3 First Scan Mode Open Executor Module (IGG01928) 
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Chart AI4 First Scan Mode Open Executor Module (IGG01928) 
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Chart AJ1 ISAM Common Close Executor Module (IGG0202D) 
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Chart AJ2 ISAM Common Close Executor Module (IGG0202D) 
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Chart AK1 QISAM Scan Processing Module (IGG019HB) GET Macro Routine (Part 1 of 14) 
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Chart AK2 QISAM Scan Processing Module (IGG029HB) GET Macro Routine (Part 2 of 14) 
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Chart AK3 QISAM Scan Processing Module (IGG019HB) PUTX Macro Routine, RELSE 

Macro Routine (Part 3 of 14) 
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Chart AK4 QISAM Scan Processing Module (IGG019HB) SETL B Macro Routine 

(Part 4 of 14) 
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Chart AK5 QISAM Scan Processing Module (IGG019HB) SETL B Macro Routine 
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Chart AK6 QISAM Scan Processing Module (IGG019HB) ESETL Macro Routine 
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Chart AK7 QISAM Scan Processing Module (IGG019HB) Schedule Routine (Part 7 of 14) 
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Chart AK8 QISAM Scan Processing Module (IGG019HB) Schedule Routine (Part 8 of 14) 
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Chart AK9 QISAM Scan Processing Module (IGG019HB) Schedule Routine (Part 9 of 14) 
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Chart AK10 QISAM Scan Processing Module (IGG019HB) Queue Routine (Part 10 of 14) 
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Chart AK11 QISAM Scan Processing Module (IGG019HB) End-of-Buffer Routine 

(Part 11 of 14) 
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Chart AK12 QISAM Scan Processing Module (IGG019HB) End-of-Buffer Routine 

(Part 12 of 14) 
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Chart AK13 QISAM Scan Processing Module (IGG019HB) SETC4 Subroutine (Part 13 of 14) 
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Chart AK14 QISAM Scan Processing Module (IGG019HB) Check Routine and EINFO 

(Error Information) Routine /p art 14 of 14 x 
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Chart AL1 Scan Mode Appendage (IGG019HG) 
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Chart AL2 Scan Mode Appendage (IGG019HG) Abnormal End, Read Queue (Part 2 of 3) 
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Chart AL3 Scan Mode Appendage (IGG019HG) Channel End, Read Queue 
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Chart AMI Scan Mode Close Executor Module (IGG02029) 
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Chart AN1 BISAM Open Executor -- Load Privileged Module (IGG0192I) 
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Chart AN2 BISAM Open Executor-Load Privileged Module (IGG0192I) 
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2 (NCP) + BUFNO 

CF. DCWFIOBE 



PERFORM 

WHERE-TO-GO 

LOGIC 



^_K5 ^^ 

►( XCTL J 



TO: IGG0192K, 
IGG0192L 
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Chart API BIS AM Nonprivileged Macro-Time Processing-Read K, Read KU, Write K 
(IGG019JV) 

IGG019JV 

r~ M — >* 

( ENTRY J 



-B1- 



RESET EXCEPTION 

FLAGS (DECBEXC1 

6 DECBEX2) IN 

DATA EVENT CNTL 

BLK (DECB) 



RWMRWA1 
RWMRWA2 

''DYNAMIC 
_ BUFFERING „ 
SPEC'D IN DCB^ 






SET INVALID 

REQUEST 

INDICATOR AT 

DECBEXC1 







SAVE RET 

ADDR FOR 

PRIVILEGED 

MACRO-TIME 

ROUTINE 






SET DECBEXC1 TO 

INDICATE RECORD 

LENGTH CHECK 



QING 
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_G4 . 

f RETURN J 



TO: USER- (PROCESSING PROGRAM) 



Chart AQ1 BISAM Privileged Macro-Time Processing Module (Write KN, without Read and 

Update) (IGG019JX) (Part 1 of 2) 



f ENTRY J 



FROM: NON- PRIVILEGED MACRO-TIME 
ROUTINE VIA QING SVC 




(IOBINDCT) 



TO: NON-PRIVILEGED 
(AT SVC ROOT) 
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Chart AQ2 BISAM Privileged Macro-Time Processing Module (Write KN, without Read and 

Update) (IGG019JX) (Part 2 of 2) 



FROM: CC1-J5, OR ASYNCHRONOUS RTN 




TO: CC1-K5, OR ASYNCHRONOUS RTN 
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SECTION 4: DIRECTORY 



ISAM Module Directory 



i 



ISAM Module Directory 



All ISAM modules are listed, according to type and mode, in Table 8. 
Table 8. ISAM Modules 





Modes 


QISAM Load Mode 


QISAM Scan Mode 




BISAM 




Function 
















OPEN 


Common 


192 A 


192B 192C 


192A 192B 192C 


192 A 


192B 


192C 


Validation 
Modules 


1920 


1950 


1920 1950 


1920 


1950 


















Executor 




192D 


192T 195D 


1924 


192H 


192N 


192Z 






192E 


192U 195G 


1928 


1921 


1920 






Mode 


192F 


192V 195T 


1929 


192 J 


192P 






Oriented 


192G 


1921 195U 




192K 


192Q 








192R 


196D 




192L 


192W 








192S 


196G 




192M 


192X 








19GA 


19IA 


19HB 19HD 19HF 


19JV 


19J0 


19H3 




Macro-Time 


19GB 


19IB 


19HN 


19JW 
19JX 


19J3 
19J6 
19J7 


19H7 




19GC 




19HG 


19GL 


19G3 


19IM 






19GD 




19HH 


19GM 


19G4 


19IN 










19HI 


19GN 


19G5 


19IO 




Appendage 






19HJ 
19HK 


19GO 
19G0 
19G1 


19G6 
19G7 
19G8 


1919 


Processing 
Modules 










19G2 


19G9 




SIO 
Appendage 


19GG 


19HA 


19JH 




19GE 


1911 


19HL 


19HP 


19JO 


19JU 






19GF 


1912 




19JJ 


19JP 






Channel 


19IE 






19JK 


19JQ 






Program 


19IF 






19JL 

19JM 
19JN 


19JR 
19JS 
19JT 












19GV 


19GY 


19IX 




Asynchronous 








19GW 
19GX 


19GZ 


19IY 
19IZ 


Other 








19JC ( 


CHECK) 














19JI (Dynamic 


Buffer) 




Mode 


202 1 


202 K 202M 


2029 


202A 






CLOSE 
Executor 


Oriented 


202J 


202 L 2028 


























Common 


202 D 




202 D 


202 D 
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The QISAM Load Mode modules are listed in Tables 9, 10, and 11. The module selections based on 
access conditions and user options are given in the set tables. 

Table 9. Load Mode Open Executor Module Selection 



Access Conditions 


Selections 


Initial Load (or Reload) 


X 


X 


X 


X 


X 


X 


X 


X 


















Resume Load 


















X 


X 


X 


X 


X 


X 


X 


X 


Variable Length Records 


X 


X 


X 


X 










X 


X 


X 


X 










Fixed Length Records 










X 


X 


X 


X 










X 


X 


X 


X 


High Level Indexes Used 




X 


X 


X 




X 


X 


X 




X 


X 


X 




X 


X 


X 


Write Checking 






X 


X 






X 


X 






X 


X 






X 


X 


Full Track Index Write 








X 








X 








X 








X 


Executors 




IGG01921 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


IGG01920 


























X 


X 


X 


X 


IGG01950 


















X 


X 


X 


X 










IGG0192D 


X 


X 


X 


X 


X 


X 


X 


X 


















IGG0192E 




X 


X 


X 




X 


X 


X 


















IGG0192F 


X 


X 


X 


X 


X 


X 


X 


X 


















IGG0192G 


X 


X 


X 


X 


X 


X 


X 


X 


















IGG0192R 


X 


X 






X 


X 






X 


X 






X 


X 






IGG0192S 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


X 


IGG0192T 


X 


X 






X 


X 






X 


X 






X 


X 






IGG0192U 






X 


X 






X 


X 






X 


X 






X 


X 


IGG0192V 






X 


X 






X 


X 






X 


X 






X 


X 


IGG0195D 




















X 


X 


X 




X 


X 


X 


IGG0195G 


















X 


X 


X 


X 


X 


X 


X 


X 


IGG0195T 








X 








X 








X 








X 


IGG0195U 








X 








X 








X 








X 


IGG0196D 


















X 


X 


X 


X 


X 


X 


X 


X 


IGG0196G 


















X 


X 


X 


X 


X 


X 


X 


X 
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Table 10. QISAM Load Mode Processing Module Selection 



Access Conditions 


Selections 


Variable Length Records 


X 


X 


X 


X 


X 


X 














Fixed Length Records 














X 


X 


X 


X 


X 


X 


Write Validity Checking 


X 


X 


X 








X 


X 


X 








No Write Validity Checking 








X 


X 


X 








X 


X 


X 


Rotational Positional Sensing (RPS) Device 




X 


X 




X 


X 




X 


X 




X 


X 


Full Track Index Write 






X 






X 






X 






X 


PUT Modules 




IGG019GA 




















X 


X 


X 


IGG019GB 














X 


X 


X 








IGG019IA 








X 


X 


X 














IGG019IB 




X 


X 




















IGG019I1 












X 












X 


IGG019I2 






X 












X 








Appendage Modules 




IGG019GC 








X 


X 


X 








X 


X 


X 


IGG019GD 


X 


X 


X 








X 


X 


X 








SIO Appendage Module 




IGG019GG 




X 


X 




X 


X 




X 


X 




X 


X 


Channel Program Skeletons 




IGG019GE 














X 












IGG019GF 












X 














IGG019IE 










X 
















IGG019IF 








X 


















IGG019I1 












X 












X 


IGG019I2 






X 












X 
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Table 11. QISAM Load Mode Close Executor Module Selection 



Access Conditions 


Selections 


Variable Length Records 




X 






Fixed Length Records 






X 




Executors 




IGG0202I 




X 


X 




IGG02028 




X 






IGG0202J 




X 


X 




IGG0202K 




X 


X 




IGG0202L 




X 


X 




IGG0202M 




X 


X 
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SECTION 5: DATA AREAS 



ISAM Control Blocks and Data Areas 



E 



ISAM Control Blocks and Data Areas 



Indexed sequential access method (ISAM) routines use a number of control blocks which are common 
to all of data management. 

The control blocks are: 

Data Control Block (DCB) 
Data Event Control Block (DECB) 
Data Set Control Block (DSCB) 
Data Extent Block (DEB) 
Input/Output Block (IOB) 

ISAM routines also use certain work areas and buffer control areas. 

The ISAM work areas are: ' 

QISAM Load Mode Work Area 

QISAM Scan Mode Work Area 

BISAM Work Area 

QISAM Load Mode Track Index Save Area (TISA) 

ISAM DCB Field Area 

The ISAM buffer control areas are: 

BISAM Dynamic Buffering Buffer Control Block (BCB) 

QISAM Buffer Control Block (BCB) 

QISAM Load Mode Buffer Control Table (IOBBCT) 

Data Control Block (DCB) 

The data control block (DCB) is the major means of communication between the problem program and 
the control program. The sources for ISAM DCB information are: the open executors, the DCB macro 
instruction, the problem program, the data definition (DD) statement, and the data set control block 
(DSCB). Figure 59 shows the portion of the DCB that is unique to ISAM. 
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49(31) DCBGET/DCBPUT 


52(34) 


DCBOPTCD 


DCBMAC 


54(36) DCBNTM 


DCBCYLOF 


56(38) 




DCBSYNAD 




60(3C) 


DCBRKP 


62(3E) 


DCBBLKSI 


64(40) 




DCBMSWA 




68(44) 


DCBSMSI 


70(46) 


DCBSMSW 


72(48) 


DCBNCP 


73(49) DCBMSHI 


76(4C) 




DCBSETL 




80(50) 


DCBEXCD1 


DCBEXCD2 


82(52) 


DCBLRECL 


84(54) 




DCBESETL 




88(58) 




DCBLRAN 




92(5C) 




DCBLWKN 




96(60) 




DCBRELSE 




100<64) 




DCBPUTX 




104(68) 




DCBRELX 




108(6C) 




DCBFREED 




112(70) 


DCBHIRTI 


113(71) 

DCBFTMI2 






120(78) 


DCBLEMI2 




125(7D) 

DCBFTMI3 






132(84) 


DCBLEMI3 




137(89) DCBNLEV 


138(8A) 


DCBFIRSH 


DCBFIRSH (cont.) 


141 (8D) DCBHMASK 


142(8E) 


DCBLDT 


144(90) 


DCBHIRCM 


145(91) DCBHIRPD 


146(92) DCBHIROV 


147(93) DCBHIRSH 


148(94) 




DCBTDC 


150(96) 


DCBNCRHI 


152(98) 




DCBRORG3 




156(9C) 




DCBNREC 





Figure 59. (Part 1 of 2) DCB BISAM/QISAM 
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(Continued) 



(Continued) 



160(A0) 


DCBST 


161(A1) 














DCBFTCI 


168(A8) 


DCBHIIOV 


169(A9) 




DCBFTMI1 








176(B0) 


DCBNTHI 


177(B1) 




DCBFTHI 








184(B8) 








DCBLPDA 




192(C0) 


DCBLETI 










197(C5) 


DCBOVDEV 




198(C6) 


DCBNBOV 


200(C8) 


DCBLECI 










205(CD) 


Reserved 




206(CE) 


DCBRORG2 


208 (DO) 


DCBLEMI1 










213(D5) 


Reserved 




214(D6) 


DCBNOREC 


216(D8) 








DCBLIOV 




224(E0) 


C 


)CBRORG1 






226(E2) 


Reserved 


228(E4) 








DCBWKPT1 




232(E8) 








DCBWKPT2 




236(EC) 








DCBWKPT3 




240(F0) 








DCBWKPT4 




244(F4) 








DCBWKPT5 




248 (F8) 








DCBWKPT6 





Figure 59. (Part 2 of 2) DCB BISAM/QISAM Interface 
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Offset 
49(31) 
52(34) 



Field Name 



Bytes 



DCBGET/DCBPUT 3 
DCBOPTCD 1 



53(35) 



DCBMAC 



54(36) 



DCBNTM 



55(37) 



DCBYLOF 



56(38) 



60(3C) 



62(3E) 



64(40) 



DCBSYNAD 



DCBRKP 



DCBBLKSI 



DCBMSWA 



Field Description 

Address of GET module or address of PUT module. 

Option codes: 

Bit - W - Write Validity check 

1 — U — Full Track Index Write 

2 — M — Master index(es) 

3 — I — Independent overflow area 

4 — Y — Cylinder overflow area 

5 — Reserved 

6 — L — Delete option 

7 — R — Reorganization criteria 

MACRF extension for ISAM 

Bit - 3 - Reserved 

4 - U — Update type of READ 

5 - U - Update type of WRITE 

6 - A - Add type of WRITE 

7 — Reserved 

The number of tracks that determine the development of a 
master index. If the number of tracks in the cylinder index 
exceeds this number, a master index is developed. If the number 
of tracks in the master index in turn exceeds this number, then 
a higher level master index is developed, and so forth. Maximum 
permissible value: 99. 

The number of tracks to be reserved on each prime data cylinder 
to hold records that overflow from other tracks on that cylin- 
der. Refer to the section on allocating space for an ISAM data 
set in the Data Management Services manual, Order Number 
GC28-3746, to determine how to calculate the maximum number. 

Address of user's synchronous error routine to be entered 
when uncorrectable errors are detected in processing data 
records. 

The relative position of the first byte of the key within each 
logical record. Maximum permissible value: logical record 
minus key length. 

Block size. For fixed-length record formats, this must be an 
integral multiple of DCBLREGL. For variable-length formats, 
it must be maximum block size and must include the 4-byte 
block length field. 

Address of a work area supplied by the user when new re- 
cords are being added to an existing data set. 
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Offset Field Name 



Bytes Field Description 



68(44) DCBSMSI 

70(46) DCBSMSW 

72(48) DCBNCP 

73(49) DCBMSHI 

76(4C) DCBSETL 



Number of bytes in area reserved to hold the highest level- 
index. The address of this area is in DCBMSHI. Maximum size 
allowed is 65,535 bytes. 

Number of bytes in work area used by control program when 
new records are being added to the data set. The address 
of this area is in DCBMSWA. Maximum size allowed is 
32,767 bytes. 

Number of copies of the READ-WRITE (type K) channel 
programs that are to be established for this data control block 
(99 maximum). 

Address of a main storage area to hold the highest level index. 

Address of SETL module for QISAM. Address of CHECK 
module for BISAM. 



80(50) DCBEXCD1 



81(51) 



82(52) 



DCBEXCD2 



DCBLRECL 



84(54) DCBESETL 
88(58) DCBLRAN 
92(5C) DGBLWKN 



1 First byte in which exceptional conditions detected in pro- 

cessing data records are reported to the user (See 
Appendix B). 

Bit — Lower Key Limit not found 

1 — Invalid device address for lower limit 

2 — Space not found 

3 — Invalid request 

4 — Uncorrectable input error 

5 — Uncorrectable output error 

6 — Unreachable block (input) 

7 — Unreachable block (update) 

1 Second byte in which exceptional conditions detected in 
processing data records are reported to the user (See 
Appendix B). 

Bit — Sequence check 

1 — Duplicate record 

2 — DCB closed when error was detected 

3 — Overflow record 

4 — The logical record length specified in the record 

field is greater than that specified in 
DCBLRECL. (Variable length records only). 

2 Logical record length for fixed-length record formats. For 
variable-length record formats, may either be maximum 
logical record length or an actual logical record length 
changed dynamically by the user when creating the data set. 

4 QISAM: Address of the ESETL routine in the GET module. 

4 Address of READ-WRITE K module. 

4 Address of WRITE KN module. 
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Offset 


Field Name 
DCBRELSE 


Bytes 


96(60) 


4 


100(64) 


DCBPUTX 


4 


104(68) 


DCBRELX 


4 


108(6C) 


DCBFREED 


4 


112(70) 


DCBHIRTI 


1 


113(71) 


DCBFTMI2 


7 



120(78) DCBLEMI2 



125(7D) DCBFTMI3 



132(84) DCBLEMI3 



137(89) DCBNLEV 



138(8A) DCBFIRSH 



Field Description 

Work area for temporary storage of register contents. 

Work area for temporary storage of register contents. 

Reserved 

Address of Dynamic Buffering module. 

Highest number of index entries that fit on a prime data track. 

Direct access device address of the first track of the second 
level master index (in the form MBBCCHH). If the second level 
master index crosses an extent boundary, the first B byte 
holds the M of the last active entry in this master index 
(LEMI2). Otherwise, the first B byte will be zero. 

Direct access device address of the last active entry in 
the second level master index (in the form CCHHR). The M 
for this address is the same as the M contained in the field 
DCBFTMI2 (above) if the first B byte of that field is zero. 
Otherwise, the M for the address is contained in the first B 
byteofDCBFTMI2. 

Direct access device address of the first track of the third level 
master index (in the form MBBCCHH). As for FTMI2. the first B 
byte will either be zero or will hold the M of the last active 
entry in the index (in the case, the M for LEMI3). 

Direct access device address of the last active entry in the 
third level master index (in the form CCHHR). The M for this 
address is the same as the M for FTMI3 if the first B byte 
is contained in the first B byte of FTMI3. 

Number of levels of index. Has a maximum value of 4, cor- 
responding to the case where there is a cylinder index and 
three maxter indexes. If the track index is the highest 
level index, then NLEV = 0. 

HHR of the first data record on each cylinder. The first data 
record on each cylinder may be on the last track of the track 
index for that cylinder (in which case, the track is said to 
be "shared"). 



141(8D) 
142(8E) 



DCBHMASK 



DCBLDT 



If the device is a 2301 drum, HMASK = X'37'; otherwise, 
HMASK = X'FF'. 

HH of the last prime data track on each cylinder. This -differs 
from the last physical track on a cylinder when the user has 
requested cylinder overflow areas. 
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Offset 



Field Name 



Bytes Field Description 



144(90) DCBHIRCM 



Highest possible R for tracks of the cylinder and master in- 
dexes. This is the number of index entries that fit on a track. 
Note that these indexes may be on a different type of device 
than the rest of the data set. 



145(91) 



DCBHIRPD 



Highest possible R for any prime data track. This is the 
number of records or blocks that fit on a prime data 
track. 



146(92) DCBHIROV 



Highest possible R for overflow data tracks, fixed-length 
formats only. This is the number of fixed-length records 
or blocks that fit on an overflow data track. 



147(93) 
148(94) 



DCBHIRSH 



DCBTDC 



150(96) DCBNCHRI 



152(98) DCBRORG3 



R of the last data record on a shared track, if applicable 
(fixed length records only). 

Tag deletion count. A field reserved for the user in which 
he may keep the number of records that have been tagged for 
deletion. It is merged to and from the Format 2 DSCB for 
BISAM, scan mode, and load mode resume load. 

Number of core locations needed to hold the highest level 
index. This is equal to (KL + 10) (N), where N is the total 
number of index entries, including dummy entries. Note that 
the track index may be the highest level index, and the track 
index is never held and searched in main storage. 

For each use of the data set, the number of READ or WRITE 
accesses to an overflow record which is not the first in a 
chain of such records. 



156(9C) DCBNREC 
160(A0) DCBST 



4 Number of logical records in the prime data area. 

1 Status indicators. 

Bit — Single schedule mode 

1 — Key sequence to be checked 

2 — Initial load has been completed 

3 — Data set extension (resume loading) will begin 

on new cylinder 

4 — Reserved 

5 — First macro not yet recrived 

6 — Last block full 

7 — Last track full 



161(A1) DCBFTCI 



Direct access device address of the first track of the 
cylinder index (in the form MBBCCHH). As for FTMI2, the 
first B byte will either be zero or will hold the M of the 
last active entry in the index (in this case, the M for 
LEMI). 
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Offset 



Field Name 



Bytes Field Description 



168(A8) DCBHIIOV 
169(A9) DCBFTMI1 



1 iighest R for independent overflow track. 

7 Direct access device address of the first track of the 

first level master index (in the form MBBCCHH). As for 
FTMI2, the first B byte will either be zero of will hold 
the M of the last active entry in the index (in this case, 
theMforLEMIl). 



176(B0) DCBNTHI 

177(B1) DCBFTHI 

184(B8) DCBLPDA 

192(C0) DCBLETI 

197(C5) DCBOVDEV 

198(C6) DCBNBOV 

200(C8) DCBLECI 



205(CD) 

206(CE) DCBRORG2 

208(D0) DCBLEMI1 



213(D5) 

214(D6) DCBNOREC 

216(D8) DCBLIOB 



1 Number of tracks of high-level index. 

7 Direct access device address of the first track of the 
highest level index (in the form MBBCCHH). Note that this 
may be the track index. 

8 Direct access device address of the last prime data record 
in the prime data area (in the form MBBCCHHR). 

5 Direct access device address of the last active normal 

entry of the track index on the last active cylinder (in 
the form CCHHR). The M of this entry is the same as the 
M of LPDA). 

1 Independent overflow device type (field description same as 
DCBDEVT). 

2 Number of bytes remaining on current overflow track (variable 
length records only). 

5 Direct access device address of the last active entry in the 

cylinder index (in the form CCHHR). The M for this address 
is the same as the M for FTCI if the first B byte in FTCI 
is zero. Otherwise the M for this address is contained in 
the first B byte of FTCI. 

1 Reserved for future use. 

2 Number of tracks (partially or wholly) remaining in the 
independent overflow area. 

5 Direct access device address of the last active entry in 

the first level index (in the form CCHHR). The M for 
this address is the same as the M for FTMI1 if the first B 
byte in FTMI1 is zero. Otherwise the M for this address 
is contained in the first B byte of FTMI1. 

1 Reserved for future use. 

2 Number of logical records in an overflow area. 

8 Direct access device address of the last record written 

in the independent overflow area (in the form MBBCCHHR). 



172 



Offset Field Name 



Bytes Field Description 



224(E0) DCBRORG1 
226(E2) 



2 Number of cylinder overflow areas that are full. 

2 Reserved for future use. 



228(E4) DCBWKPT1 



232(E8) DCBWKPT2 



BISAM: pointer to CP1 or CP2. 
QISAM: pointer to DCB work area. 

BISAM: pointer to DCB work area. 



236(EC) DCBWKPT3 

240(F0) DCBWKPT4 

244(F4) DCBWKPT5 

248 (F8) DCBWKPT6 



4 BISAM: pointer to CP8. 

4 BISAM: pointer to appendage module (part 1). 

QISAM: pointer to UCB. 

4 BISAM: pointer to appendage module (part 2). 

QISAM: pointer to appendage module. 

4 QISAM: pointer to DCB work area vector pointers 

(ISLVPTRS). 
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Data Event Control Block (DECB) 



The data event control block is constructed as part of the expansion of a READ or WRITE macro 
instruction. The DECB contains a parameter list, an event control block, a pointer to the desired logical 
record, and an exception code. Figure 60 shows the format of the DECB. 



-< 






4 bytes 




^ 


0(0) 






DECBECB 






4(4) 


DECBTYP1 


5(5) 


DECBTYP2 


6(6) 


DECBLGTH 




8(8) 






DECBDCBA 






12(C) 






DECBAREA 






16(10) 






DECBLOGR 






20(14) 






DECBKEY 






24(18) 


DECBEXC1 


25(19) 


DECBEXC2 









Figure 60. Data Event Control Block 
Offset Field Name Bytes 

0(0) DECBECB 4 

4(4) DECBTYP1 1 



5(5) 



DECB TYP2 



6(6) 


DECBLGTH 


2 


8(8) 


DECBDCBA 


4 


12(C) 


DECBAREA 


4 


16(0) 


DECBLOGR 


4 


20(14) 


DECBKEY 


4 



Field Description 

Standard ECB 

First byte of macro type field. 
Bit 0—5 — Reserved 

6 - Length coded as 'S' (take length from DCBBLKSI) 

7 — Area coded as 'S' (dynamic buffer option) 

Second byte of macro type. 
Bit - READK 

1 — Reserved 

2 - READKU 

3 — Reserved 

4 - WRITE K 

5 - WRITE KN 
6—7 — Reserved 

Number of bytes read or written. 

Data control block address. 

Address of storage area for record. 

Pointer to logical record. 

Record key address. 
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Offset Field Name 



Bytes Field Description 



24(1-8) DECBEXC1 



Exceptional condition code byte (See Appendix B). 

Bit — Record not found 

1 — Record length check 

2 — Space not found in which to add a record 

3 — Invalid request 

4 — Uncorrectable I/O error 

5 — Unreachable block 

6 — Overflow record 

7 — Duplicate record presented for inclusion in the data set 



25(19) DECBEXC2 



Exceptional condition code byte (See Appendix B). 
Bit 0—5 — Reserved 

6 — Channel program initiated by an asynchronous 

routine (variable length records only). 
7 — Previous macro was READ KU 
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Data Set Control Block (DSCB) 

The data set control block (DSCB) is the data set label on a direct access device. A series of DSCBs 
describes the attributes and extents of the data set. Data set attribute entries include data set organization, 
record format, and other information needed to refer to and use a data set. Extent entries describe the 
physical boundaries of the data set. 

DSCBs for indexed sequential data sets have three formats. A Format 1 DSCB contains such items as 
the data set name, the format-type identifier, the number of extents on the volume, and certain DCB fields. 
It also contains three extent entries for use in constructing the DEB. (See the publication IBM System/360 
Operating System Direct Access Device Space Management Program Logic Manual.) There is a format 1 
DSCB for each volume of the data set. 

Format 2 DSCBs are unique to ISAM and are used in constructing the ISAM DCB interface. There is 
one format 2 DSCB for a data set and it exists on the first volume on which space for the data set was 
allocated. When the QISAM scan mode open executor module (IGG01928) or the BISAM open executor 
module (IGG0192H) is executed, data in the associated format 2 DSCB are moved to the BISAM/QISAM 
interface portion of the DCB. The DCB field corresponding to each DSCB field is shown in the following 
detailed description of the format 2 DSCB. The format 2 DSCB is shown in Figure 61. 

There is a Format 3 DSCB for each volume which has more than three extents. A format 3 DSCB 
contains up to 13 additional extent entries, permitting a maximum of 16 extent entries per volume. 

Detailed descriptions of DSCBs are given in the publication IBM System/360 Operating System: System 
Control Blocks. 



-< 




4 bytes — 




>- 


0(0) 


1(1) 




DS22MIND 






8(8) 






DS2L2MEN 




13(D) 




DS23MIND 






20(14) 






DS2L3MIN 




25(19) 




Reserved 







(Continued) 
Figure 61. (Part 1 of 2) Format 2 DSCB 
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(Continued) 



44(2C) DS2FMTID 


DS2NOLEV 


46(2E) DS2DVIND 


DS21RCYL 


DS21RCYL (cont.) 


50(32) DS2LTCYL 


52(34) DS2CYLOV 


DS2HIRIN 


54(36) DS2HIRPR 


DS2HIR0V 


56(38) DS2RSHTT 


DS2HIRTI 


58 (3A) DS2HMOV 


DS2TAGDT 


DS2TAGDT (cont.) 


61(3D) DS2RORG3 


64(40) DS2NOBYT 


66(42) DS2NOTRK 


67(43) DS2PRCTR 


DS2PRCTR (cont.) 


71(47) DS2STIND 


72(48) 

DS2CYLAD 






79(4F) 


DS2ADLIN 






86(56) 




DS2ADHIN 




93(5D) 

DS2LPRAD 








101(65) DS2LTRAD 


DS2LTRAD (cont.) 


106(6A) 


n^9i 


rv a n 






11K6F) 


DS2LMSAD 




116(74) 

DS2LOVAD 


124(7C) DS2BYOVL 


126(7E) DS2RORG2 


128(80) DS20VRCT 


130(82) DS2RORG1 


132(84) DS2NIRT 


135(87) 


DS2PTRDS 





Figure 61. (Part 2 of 2) Format 2 DSCB 
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Offset Field Name Bytes 

0(0) 1 



1(1) 



J(8) 



DS22MIND 



DS2L2MEN 5 



13(D) DS23MIND 7 

20(14) DS2L3MIN 5 

25(19) 19 

44(2C) DS2FMTID 1 

45 (2D) DS2NOLEV 1 

46(2E) DS2DVIND 1 

47(2F) DS21RCYL 3 

50(32) DS2LTCYL 2 

52(34) DS2CYLOV 

53(35) DS2HIRIN 

54(36) DS2HIRPR 

55(37) DS2HIROV 

56(38) DS2RSHTR 

57(39) DS2HIRTI 



Field Description 

Contains Hex Code 02 in order to 
avoid conflict with a data set name. 

Address of the first track of the 
second level master index in the form 
MBBCCHH. 

Contains the CCHHR of the last active 
index entry in the second level master 
index. 

Address of the first track of the third 
level master index in the form MBBCCHH. 

Contains the CCHHR of the last active 
index entry in the third level master 
index. 

Reserved. 

Format identification for Format 2 
DSCB (EBCDIC "2"). 

Number of index levels. 

Number of tracks determining 
development of the master index. 

Contains the HHR of the first data 
record on each cylinder. 

Contains the HH of the last data 
track on each cylinder. 

Number of tracks of cylinder overflow 
area on each cylinder. 

Highest possible R on a track 
containing high level index entries. 

Highest possible R on prime data 
tracks for form F records. 

Highest possible R on overflow data 
tracks for form F records. 

Contains the R of the last data 
record on a shared track. 

Highest number of index entries that 
fit on a prime data track. 



DCB Field 

to 

Which Moved 



DCBFTMI2 



DCBLEMI2 



DCBFTM3 



DCBLIMI3 



DCBNLEV 
DCBNTM 

DCBFIRSH 

DCBLDT 

DCBCYLOF 

DCBHIRCM 

DCBHIRPD 

DCBHIROV 

DCBHIRSH 

DCBHIRTI 
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Offset Field Name Bytes 

58 (3 A) DS2HIIOV 1 



Field Description 

Highest R for independent overflow 
track. 



DCB Field 

to 

Which Moved 

DCBHIIOV 



59(3B) DS2TAGDT 



61 (3D) DS2RORG3 3 



64(40) DS2NOBYT 2 



66(42) DS2NOTRK 1 



67(43) DS2PRCTR 4 



The number of records that have been DCBTCD 

tagged for deletion. This field is updated 

by the user during BISAM, Scan Mode, and . 

Load Mode resume loading. 

The number of random references to DCBRORG3 

overflow records other than the first 
overflow record in a chain. 

The number of bytes needed to hold the DCBNCRHI 

highest level index in core storage. 

The number of tracks occupied by the DCBNTHI 

highest level index. 

The number of records in the prime DCBNREC 

data area. 



71(47) DS2STIND 



Status indicators. 



Bits Bit Setting Meaning 



DCBST 









Reserved 


1 


1 


Key sequence to be checked 


2 


1 


Initial load has been completed 


3-5 


1 


Reserved, must remain zero 


6 


1 


Last block full 


7 


1 


Last track full 



72(48) DS2CYLAD 7 



79(4F) DS2ADLIN 7 



86(56) DS2ADHIN 7 



Address of the first track of the 
cylinder index in the form MBBCCHH. 

Address of the first track of the 
lowest level master index in the form 
MBBCCHH. 

Address of the first track of the 
highest level master index in the 
form MBBCCHH. 



DCBFTCI 



DCBFTMI1 



DCBFTHI 



93(5D) DS2LPRAD 8 



Address of the last record in the 
prime data area, in the form 
MBBCCHHR. 



DCBLPDA 



101(65) DS2LTRAD 5 



Contains the CCHHR of the last normal DCBLETI 

entry in the track index on the last 

cylinder. 
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Offset Field Name Bytes 



106(6A) DS2LCYAD 5 



Field Description 

Contains the CCHHR of the last index 
entry in the cylinder index. 



DCB Field 

to 

Which Moved 

DCBLECI 



111(6F) DS2LMSAD 5 



116(74) DS2LOVAD 8 



Contains the CCHHR of the last index DCBLEMI1 

entry in the master index. 

Address of the last record written in the DCBLIOV 

current independent overflow area, 
in the form MBBCCHHR. 



124(7C) DS2BYOVL 2 

126(7E) DS2RORG2 2 

128(80) DS20VRCT 2 

130(82) DS2RORG1 2 

132(84) DS2NIRT 3 

135(87) DS2PTRDS 5 



The number of bytes remaining on the DCBNBOV 

current independent overflow track. 

The number of tracks remaining in the DCBRORG2 

independent overflow area. 

The number of records in the overflow DCBNOREC 

area. 

The number of cylinder overflow areas DCBRORG1 

that are full. 

HHR of the dummy track index entry. 

If there are more than 3 extent segments 
for the data set on this volume, this 
field contains the address of a Format 
3 DSCB in the form CCHHR. Other- 
wise, this field contains binary zeros. 
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Data Extent Block (DEB) 

The ISAM open executors construct the DEB. The DEB contains the extents of the opened data set, 
pointers to the unit control blocks (UCBs) for the extents, and the names of access method routines to be 
used. The ISAM dependent, device dependent, and subroutine name sections of the DEB are shown in 
Figure 62. 



ISAM Dependent Section (Occurs only once) 



32(20 


DEBNIEE 


33(21) DEBFIEAD 


36(24) 


DEBNPEE 


37(25) DEBFPEAD 


40(28) 


DEBNOEE 


41(29) DEBFOEAD 


44(2C) 


DEBRPSID 


DEBDISAD 


Device Dependent Section (Occurs once for each extent) 


+0(0) 


DEBDVMOD 


+ 1(1) DEBUCBAD 


+4(4) 


DEBBINUM 


+6(6) DEBSTRCC 


+8(8) 


DEBSTRHH 


+ 10(A) DEBENDCC 


+12(C) 


DEBENDHH 


+ 14(E) DEBNMTRK 



+0 



DEBSUBID 



Occurs once for each subroutine 



Figure 62. ISAM Extensions to DEB 



Offset 


Field Name 
DEBNIEE 


Bytes 


32(20) 


1 


33(21) 


DEBFIEAD 


3 


36(24) 


DEBNPEE 


1 


37(25) 


DEBFPEAD 


3 


40(28) 


DEBNOEE 


1 


41(29) 


DEBFOEAD 


3 



ISAM Dependent Section 

Field Description 

Number of extents of independent index area. 

Address of first index extent. 

Number of extents of prime data area. 

Address of the first prime data extent. 

Number of extent of independent overflow area. 

Address of the first overflow extent. 
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Offset 



44(2C) 



44(2C) 



Field Name Bytes 

DEBRPSID 1 



DEBDISAD 



+0(0) DEBDVMOD 

+ 1(1) DEBUCBAD 

+4(4) DEBBINUM 



+6(6) 


DEBSTRGC 


+8(8) 


DEBSTRHH 


+ 10(A) 


DEBENDCC 


+ 12(C) 


DEBENDHH 


+ 14(E) 


DEBNMTRK 



Device Dependent Section 
Field Description 

Identifiers for Prime, Index, or Overflow areas 
on an RPS direct access storage device. 

BITS 

Prime area is on a RPS device. 

1 Index area is on an RPS device. 

2 Overflow area is on an RPS device. 

3 A SIO appendage for RPS has been 
loaded. (This bit set by IGG0192K.) 

4-7 Reserved. 

Address of privileged module entered during the 
execution of a BISAM macro instruction. 

The device dependent sections-one for each extent-are in 
the following order: Prime extents, Index extents, Overflow 
Extents. 

Device modifier: file mask. 

Address of UCB associated with this data extent. 

Bin number if the device is a 2321 data cell drive, zero for 
other devices. 

Cylinder address for the start of an extent limit. 

Read/write track address for the start of an extent limit. 

Cylinder address for the end of an extent limit. 

Read/write track address for the end of an extent limit. 

Number of tracks allocated to a given extent. 



Subroutine Name Section 

DEBSUBID 2n Subroutine identification. Each access method subroutine, 

appendage subroutine, and IRB routine has a unique 8-byte 
name. The low-order two bytes of each routine name is in 
this field if the subroutine is loaded by the open routine. 
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Input/Output Block (IOB) 

The input/output block (IOB) contains information required by the I/O supervisor to perform an 
input/output operation. ISAM routine construct an IOB for each such operation. 

The IOB consists of 40 bytes of standard information as described in the publication IBM System/360 
Operating System: System Control Blocks. The standard information is common to all access methods. 
BISAM and QISAM (scan mode) use extensions of the standard IOB, and QISAM uses an IOB prefix. The 
ISAM extensions and the prefix are shown in Figure 63. 

QISAM Prefix 



-4(-4) 



Event Control Block 



BISAM Extension 
















40(28) 








IOBCCWAD 








44(2C) 


IOBINDCT 


45(2D) 


IOBUNSQR 




46(2E) 


IOBAPP 


47(2F) 


IOBASYN 


48{30) 


IOBCOUNT 


49(31) 






IOBFCHAD 






52(34) 








IOBBCHAD 








56(38) 








IOBCCW1 








64(40) 








IOBCCW2 









QISAM Extension (scan mode) 



40(28) 



Q1IEXTEN-W10EXTEN 



Figure 63. ISAM Extensions to IOB 



Offset Field Name Bytes 

QISAM Prefix 
-4(-4) 4 

BISAM Extension 
40(28) IOBCCWAD 4 



Field Description 



Event Control Block 



Address of first CCW of channel program, or address of buffer 
after completion of a READ KU (BISAM Dynamic Buffering). 
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Offset 



44(2C) 



Field Name 



IOBINDCT 



Bytes 



45 (2D) IOBUNSQR 



46(2E) 


IOBAPP 


1 


47(2F) 


IOBASYN 


1 


48(30) 


IOBCOUNT 


1 


49(31) 


IOBFCHAD 


3 


52(34) 


IOBBCHAD 


. 4 


56(38) 


IOBCCW1 


8 


64(40) 


IOBCCW2 


8 



Field 


Description 


Indicators. 


Bits 


1 
2 


Bit Setting: 
1 
1 



3 



1 


4-6 

7 




1 



Meaning 

Remove channel program from queue. 

IOB is on the unshceduled queue. 

DECBAREA (+6) points to overflow 

record data DCBMSWA points to overflow 

record key followed data. 

DECBKEY points to overflow record key. 

DCBMSWA (+8) points to overflow record 

key. 

Reserved. 

Normal channel end has occurred. 

Abnormal channel end has occurred. 



Reason for unscheduled queue 



Bits Bit Settings 




1 
2 
3 

4 

5 

6-7 



Meaning 

CP1 orCP2busy. 

NoCP4,CP5,orCP6. 

NoCP7. 

Write KN is in effect (unscheduled IOB is 

for WRITE KN). 

WRITE KN is in effect (unscheduled IOB is 

for READ or WRITE K). 

An error condition is associated with this 

IOB. 

Reserved. 



Appendage code (see Section 6). 

Asynchronous routine code (see Section 6). 

Write check counter. 

Forward chain address. 

Backward chain address. 

Set Sector CCW for usage with RPS direct access storage devices. 

TIC Channel Command Word to the channel program, used with 
RPS devices. 



QISAM Extension (scan mode) 

40(32) Q1IEXTEN 2 Appendage codes (see Section 6). 

WIOEXTEN 
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Buffer Control Block (BCB)-BISAM 

The buffer control block used to control dynamic buffering in BISAM is structured by the stage 2 
OPEN executor IGG0293B if the problem program has requested dynamic buffering. If the user does not 
specify the number of buffers he desires, two buffers will be provided. The fields of the BISAM BCB are 
shown schematically in Figure 64. 



-< 


4 bytes 


>- 


0(0) 


BCBFIOB 




4(4) 


BCBLIOB 




8(8) 


BCBNAVB 




12(C) 


BCBSIZE 




16(10) 


Reserved (for double word alignment) 




20(14) 


FIRST BUFFER (LINK FIELD) 1 




24(18) 


FIRST BUFFER (continued) 




SECOND BUFFER (LINK FIELD) 


SECOND BUFFER (continued) 


Nth BUFFER (LINK FIELD) 


Nth BUFFER (continued) 



The first buffer begins at 20(14) if buffer alignment specified was full word; at 24(18) if alignment was double word. 

Figure 64. Fields of the BISAM Dynamic Buffering Buffer Control Block 

The following is a description of the contents and uses of the fields of the BISAM BCB. 

Field: BCBFIOB 

Offset: 0(0) 

Size: 4 bytes 

Contents and Use: If there are not enough buffers available for the number of READ K or READ 

KU requests issued, the dynamic buffering routine, entered from the START I/O 
appendage routine, activates this field as a pointer to the first IOB that needs a 
buffer. Later, when a buffer has become available (because it was released by 
either the WRITE K macro instruction or the FREEDBUF macro instruction), 
the dynamic buffering routine, entered through one of those macro routines, 
updates BCBFIOB to point to the next IOB that needs a buffer. If there are no 
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Field: 

Offset: 

Size: 

Contents and Use: 



Field: 

Offset: 

Size: 

Contents and Use: 



Field: 

Offset: 

Size: 

Contents and Use: 

Field: 

Offset: 

Size: 



more IOBs on queue for a buffer, this field is then reset to zero. Initially, this 
field is set to zero by the ISAM OPEN module IGG0192B. 

BCBLIOB 

4(4) 

4 bytes 

If there are not enough buffers available for the number of READ K or READ 
KU requests issued, the dynamic buffering routine, entered from the START I/O 
appendage routine, activates this field as a pointer to the last IOB that needs a 
buffer (the IOB of the latest read requested). The IOB forward chain address 
(IOBFCHAD) of the IOB previously pointed to by this field, if BCBLIOB has 
been previously activated, is also set to point to this latest IOB. IOBFCHADs thus 
provide the linkage between BCBFIOB and BCBLIOB. BCBLIOB is initialized and 
reset whenever BCBFIOB is. 

BCBNAVB 

8(8) 

4 bytes 

Points to the next buffer available to a READ K or READ KU request. Initially, 
BCBNAVB is set to point to the first buffer by ISAM OPEN module IGG0192B. 
The dynamic buffering routine is entered from the START I/O appendage routine 
to select the buffer pointed to by this field when a read is sisued. The link field of 
the buffer selected is placed into BCBNAVB. When a buffer has been released 
either by a FREEDBUF macro instruction or because it has been written back 
into the data set, entry is made to the dynamic buffering routine. If an IOB is 
awaiting a buffer (see BCBFIOB), the buffer just released is assigned to that IOB, 
and an EXCP is issued. If, however, the IOB queue is empty, the buffer is placed 
on the available queue. This is accomplished by placing a pointer to the buffer in 
BCBNAVB after moving the contents of BCBNAVB into the link field of the 
buffer. When there are no buffers on the available queue, BCBNAVB contains 
zero. 

BCBSIZE 

12 (C) 

4 bytes 

Total core size of the BCB and the attached buffers. Calculated by OPEN module 
IGG0192B. Used by CLOSE module IGG0202A to free the Buffer Control Block 
and the associated buffers. 

Buffer Link 

20(14) 

4 bytes (first 4 bytes of each buffer) 
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Contents and Use: If a buffer is on the available queue, its link field contains the address of the 

following buffer to be made available. When a buffer is the last buffer on the 
available queue, its link field contains zero. When a buffer is not on the available 
queue, these 4 bytes are used as a part of the buffer. 
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Buffer Control Block (BCB)-QISAM 



The BCB used in QISAM is different in format from the BISAM BCB. Figure 65 pictures schematically 
the fields of the QISAM BCB. This BCB may result from a GETPOOL or BUILD macro instruction issued 
by the processing program, or it may be constructed by the stage 1 open executors. The information it 
contains is needed by the stage 2 open executors. 



0(0) 



ADDRESS OF FIRST BUFFER 



4(4) 
NUMBER OF BUFFERS 



6(6) 



LENGTH OF EACH 
BUFFER 



Figure 65. Fields of the QISAM Buffer Control Block 

The following is a description of the contents and uses of the fields of the QISAM BCB. 



Field: 

Offset: 

Size: 

Contents and Use: 



Field: 

Offset: 

Size: 

Contents and Use: 

Field: 

Offset: 

Size: 

Contents and Use: 



Address of First Buffer 

0(0) 

4 bytes 

Load mode OPEN module IGG0192G uses this address to initialize the load mode 
Buffer Control Table field named IOBABUF. Scan mode OPEN module 
IGG01929 uses the address (in conjunction with the link field of each buffer) to 
initialize its channel programs. 

Number of Buffers 

4(4) 

2 bytes 

The number of buffers in this buffer pool. 

Length of Each Buffer 

6(6) 

2 bytes 

Scan mode OPEN module IGG01929 uses this field to ensure the buffer size is 
adequate for the records to be retrieved. 
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Buffer Control Table (IOBBCT) 



The buffer control table, used by QISAM load mode to control the filling of buffers, is initialized by 
Stage 2 OPEN executor module IGG0192G. The area for the IOBBCT is obtained by Stage 1 OPEN 
executor module IGG0192B. The fields of the buffer control table are shown schematically in Figure 66. 



0(0) 



IOBFLAGS 



1(1) 



IOBPTRA 



4(4) 



IOBB 



5(5) 



IOBPTRB 



8(8) 



IOBS 
(1st Buffer) 



9(9) 



IOBABUF 
(1st Buffer) 



2n+10 



IOBS 
(nth Buffer) 



2N+11 



IOBABUF 
(nth Buffer) 



Figure 66. QISAM Load Mode Buffer Control Table 

The following is a description of the contents and uses of the fields of the IOBBCT. 
Field: IOBFLAGS 



Offset: 

Size: 

Contents and Use: 

BitO: 
Bit 1: 



Bit 2: 



Bit 3: 



Bit 4: 



0(0) 
1 byte 



General I/O conditions pertaining to all buffers. IOBFLAGS is initialized by 
OPEN executor IGG0192G. At this time, Bit 4 is set; all other bits are reset. 

When the end of buffer routine schedules an EXCP to use CP18/CP20 (to write 
data records and the associated track indexes), the bit is set on to indicate 
CP18/CP20 busy. CP18/CP20 appendage routine resets the bit. 

When the end of buffer routine cannot schedule the EXCP because CP18/CP20 
are busy (Bit = 1), this bit is set. It is interrogated after every PUT macro 
instruction and, if set, another attempt is made to schedule the EXCP. If the 
attempt is successful, the bit is reset. 

When Bit 1 = 1 and an attempt is being made to write previously filled buffers, 
but the current buffer is not full, this bit must be set to tell the end of buffer 
routine, which schedules the EXCP, to return to the PUT routine. 

This bit is set by CLOSE executor module IGG0202I. It ensures return to closing 
routines after using channel programs to complete processing of the final buffers. 

This bit is set by the PUT routine (in move mode only) when the last record PUT 
filled a buffer. It is interrogated by the PUT routine to determine if a new buffer 
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must be initialized before moving the current record, and is reset by the beginning 
of buffer routine after the new buffer has been initialized. 



Bit 5: 



Bit 6: 



Bit 7: 



When the PUT routine determines that there is enough space on the current 
track— index track for only one more normal and overflow track— index entry, it 
sets this bit. Prior to this determination, it has reset this bit. If the PUT routine 
determines that an end— of— cylinder condition exists, it interrogates the bit to see 
if the extra track— index dummy entry will fit on the current track (Bit 5 = 0), or 
whether a new track is needed (Bit 5 = 1). 

This bit is set by CLOSE executor module IGG0202I. It ensures return to closing 
routines after completing the data set's high— level— index. 

Set by OPEN executor module IGG0192R (or IGG0192U) if the data set consists 
of unblocked records whose relative key position (RKP) is 0. The bit is 
interrogated during initialization of CP18. 



Field: 


IOBPTRA 


Offset: 


1(1) 


Size: 


3 bytes 


Contents and Use: 


This field 



This field serves as a pointer to the address of the first buffer of the group that 
will be written next. During the execution of CP18, it points to the address of the 
first buffer of the group currently being written. When CP18 is completed, the 
appendage routine updates this field to point to the address of the first buffer of 
the next group. IOBPTRA is needed to initialize CP18 before CP18 is executed. 
IOBPTRA is initialized by OPEN executor module IGG0192G to point to the 
address of the first buffer. 



Field: 

Offset: 

Size: 

Contents and Use: 



IOBB 

4(4) 

1 byte 

IOBB contains the number of buffers filled but not yet scheduled for writing. It is 
updated by the PUT routine as each buffer is filled, and reset to zero by the end 
of buffer routine when the buffers are scheduled for writing. IOBB is initialized 
to zero by OPEN executor module IGG0192G. 



Field: 




IOBPTRB 


Offset: 




5(5) 


Size: 




3 bytes 


Contents 


and Use: 


This field 



This field serves as a pointer to the address of the buffer currently being filled. It 
is updated when the beginning of buffer routine is called to prepare a new buffer 
before executing a PUT command. IOBPTRB is initialized by OPEN executor 
module IGG0192G to point to the address of the first buffer. 
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Field: 

Offset: 

Size: 

Contents and Use: 

BitO: 

Bits 1 and 2: 



Bit 3: 



Bit 4: 



Bit 5: 



Bit 6: 



Bit 7: 



IOBS 



2n+ 10 where n is the buffer number. 

I byte 

There is one status byte (IOBS) for each buffer. The bits are used to indicate 
conditions peculiar to each buffer. All status bits (except Bit 0) are initially reset 
by OPEN executor module IGG0192G. 

Set (by OPEN executor module IGG0192G) if this is IOBS field for buffer N (last 
buffer); otherwise reset. Interrogated to ensure proper sequence of buffering 
when going from last to first buffer. 

A 2 — bit code indicating buffer availability as follows: 

00 —buffer available — set by CP18/CP20 appendage routine after writing; 

interrogated by beginning of buffer routine prior to using buffer again. 

01 —contents of buffer caused permanent write error — set by GP18/CP20 

appendage routine; interrogated by beginning of buffer routine prior to 
using buffer again. 

10 — buffer full, but not yet scheduled for writing — set by PUT routine when 
buffer becomes full; prevents refilling of buffer before writing. 

I I — buffer scheduled for writing — set by end of buffer routine when scheduled; 

interrogated by appendage routine to reset these bits and to update 
IOBPTRA. 

This bit is set by the beginning of buffer routine when it determines that this 
buffer, when written, will begin a new extent. Interrogated, then reset, by end of 
buffer routine before scheduling writing of this buffer in the new extent. 

This bit (the T— BIT) is set by the beginning of buffer routine when it determines 
that this buffer will be the last written on a track. Interrogated by end of buffer 
routine so that CP20 will be executed to write the track index. The T— BIT is 
reset by the CP18/GP20 appendage routine. 

This bit (the C— BIT) is set by the beginning of buffer routine when it determines 
that this buffer, in addition to being the last written on a track, will also be the 
last written ona cylinder. Interrogated by end of buffer routine so that CP21 will 
be executed to write the cylinder index when necessary. The C— BIT is reset by 
the CP21 appendage routine. 

This bit (the PF— BIT) is set by the beginning of buffer routine when it 
determines that this buffer will be the first buffer written on a cylinder, and 
track-sharing is in effect. CP19 is used to preformat the shared track. The end of 
buffer routine interrogates this bit, and does not schedule a write on the new 
cylinder until CP19 appendage routine has reset the bit. 

Not used. 
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Field: IOBABUF 

Offset: 2n+l 1 where n is the buffer number. 

Size: 3 bytes 

Contents and Use: There is one IOBABUF field for each buffer, and it contains the address of its 

associated buffer. Stage 1 OPEN executor module IGG0192B provides the 
address of the first buffer (through DCBBUFCB) and Stage 2 OPEN executor 
module IGG0192G uses the buffer link field of each buffer to fill out the 
remaining IOBABUFs. (When buffers are structured, the first four bytes of each 
buffer (the buffer link field) contain the address of the next buffer in the chain. 
After these addresses are put into the IOBBCT, these four bytes become part of 
the buffer.) Buffer addresses are used for initialization of CP18 and providing the 
storage location into which records are to be moved. 
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QISAM Load Mode DCB Work Area 



The QISAM load mode DCB work area is pointed to by the DCBWKPT1 field of the DCB. The DCB 
work area format is shown in Figure 67. 



-< 




8 bytes 




>- 


0(0) 


ISLECBA 




4(4) 










ISLIOBA 




44(2C) 


ISLECBB 




48(30) 




ISLIOBB 






88(58) 


ISLECBC 




92(5C) 










ISLIOBC 




132(84) 










ISLAREAZ 




220(DC) 










ISL 


IXLT 




324(144) 


ISLNIRT 


ISLHIRT 


328(148) 


ISLCBF 




332(14C) 


ISLBMPR 




336(150) 


ISLFBW 




340(154) 


ISLEOB 




344(158) 




ISLNCNT 






352(160) 




ISLOCNT 







Figure 67. (Part 1 of 2) QISAM Load Mode DCB Work Area 



(Continued) 
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(Continued) 



360(168) 


ISLDCNT 




368(170) 




ISLNDAT 






37807A) 


380(17C) 


ISLODAT 








290 
(176) R eserve d 


ISLBUFNO 


392(188) 


ISLBUFN 


396(18C) 


ISLMVC 


400(190) 


ISLMVCT 


404(194) 






ISLVRSAV 




476(1DC) 






ISLAPSAV 




516(204) 






ISLWRSAV 




580(244) 


TSTWK1C 


584(248) 


TSTWK2C 


588(24C) 


Reserved 


592(250) 


ISLNOENT 


596(254) 


ISLOFFST 


600(258) 


ISLD 


604(25C) 


ISLFSTBF 


608(260) 


ISLLSTBF 


612(264) 


ISLCCFAD 


616(268) 


ISLKEYAD 


620(260 CL1AD/ISLF8AD 


624(270) 


CM1AD/ISLFXAD 


628(274) CQ1AD/ISLFYAD 


632(278) 


CQT1AD/ISLFZAD 


636(27C) CQ40AD/ISLPAAD 


640(280) 


CQ45AD/ISLF1AD 


644(284) 






ISLVPTRS (pointed 


toby DCBWKPT6) 


704(2C0) 


ISLIGAP 


706(2C2) ISLLGAP 


708(2C4) 


ISLRPSSS 


Variable length areas follow: 
Pointed to by 1SLVPTRS 
AREA Y (See Figure 68) 
KEYSAVEAREA 
BUFFER CONTROL TABLE 
CHANNEL PROGRAMS 



Figure 67. (Part 2 of 2) QISAM Load Mode DCB Work Area 
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Offset 


Field Name 


Bytes 


0(0) 


ISLECBA 


4 


4(4) 


ISLIOBA 


40 


44(2C) 


ISLECBB 


4 


48(30) 


ISLIOBB 


40 


88(58) 


ISLECBC 


4 


92(5C) 


ISLIOBC 


40 


132(84) 


ISLAREAZ 


88 



Field Description 

The ECB for CP18 and CP20 

The IOB for CP18 and CP20 

The ECB for CP 21 

TheIOBforCP21 

The ECB for CP19 and CP91 

The IOB for CP 1 9 and CP9 1 

This area contains the data field for cylinder overflow records 
and the count fields for ten index entries. These are used to 
preformat shared— tracks during the PUT Load—Mode function 
and to pad dummy track indexes on unused cylinders during CLOSE. 

Area Z appears as follows: 



CYL.OVL. 

CTRL.RCD. 

HHRYYT 


COUNT 1 


COUNT 2 




COUNT 10 



Z+6(6) 



Z+14(E) 



Z+78(4E) 



(DC) ISLIXLT 
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104 The index location table contains the direct access device 

addresses for high-level indexes. 

IND. BEGIN STEPPING END 



0(0) 


MBBCCHHR 


MBBCCHHR 


MBBCCHHR 


CYL 


26<1A) 


MBBCCHHR 


MBBCCHHR 


MBBCCHHR 


M1 


52(34) 


MBBCCHHR 


MBBCCHHR 


MBBCCHHR 


M2 


78(4E) 


MBBCCHHR 


MBBCCHHR 


MBBCCHHR 


M3 



There is an "indicator" byte and three device addresses for each level 
of index: Cylinder, and up to 3 Master index levels. 

The Begin and End addresses are set during Open according 
to formulas based on space allocation. The Stepping 
addresses are used during data set creation to point to 
the current index entry location at each level. 
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Offset Field Name 



Bytes Field Description 

The Indicator byte is as follows: 

Bit = 1 for last level 
=' otherwise 

1 = 1 for Dummy Switch on 
= for Dummy Switch off 

2 = 1 for current level 
= otherwise 

3 = 1 during Close 
= otherwise 

4=1 when Track Index has been written but not 
Cylinder index. 
= When Cylinder index has been written. 



Indicator Bit 4 only applies to the first level of the index 
location table. 



324(144) ISLNIRT 



HHR of the dummy track index entry. It is used in Close to 
signal the end of track index padding. 



327(147) ISLHIRT 
328(148) ISLCBF 



1 The number of index entries that fit on a prime data track. 

4 Buffer Control Pointer. This field contains the address of the 

current record in the current buffer. It is used to move records 
into a buffer. 



332 (14C) ISLBMPR 



Size of individual records (equal DCBLRECL or 

DCBLRECL + DCBKEYLE). This field is used to bump ISLCBF to next 

record location in a buffer. 



336(150) ISLFBW 



The number of buffers scheduled to be written. This number is 
determined immediately following each execution of CP18. 
It is the number of buffers (DCBBUFNO) minus one or the 
number of buffers that will complete a track, whichever is 
smaller. 



340(154) ISLEOB 



End of buffer address. When ISLCBF and ISLEOB are equal, 
a buffer has been filled. 



344(158) ISLNCNT 



CCHHRKDD. This is the count field for the current Normal 
Track Index Entry. 



352(160) ISLOCNT 



CCHHRKDD. This is the count field for the current Overflow 
Track Index Entry. 



360(168) ISLDCNT 



CCHHRKDD. This is the count field for the current Dummy 
Track Index entry. 



368(170) ISLNDAT 



10 MBBCCHHRFP. This is the data field for the current Normal 

Track Index Entry. 



378(17A) 
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Reserved. 



Offset Field Name 



Bytes Field Description 



380(1 7C) ISLODAT 

390(186) 

391(187) ISLBUFNO 

392(188) ISLBUFN 

396(18C) ISLMVC 



400(190) ISLMVCT 



404(194) ISLVRSAV 



476(1DC) ISLAPSAV 



516(204) ISLWRSAV 



596(254) ISLOFFST 



600(258) ISLD 



10 MBBCCHHRFP. This is the data field for the current Overflow 

Track Index Entry. 

1 Reserved 

1 Number of Buffers. ISLBUFNO equals DCBBUFNO. 

4 Address of Slot N in Buffer Control Table. 

4 The count used for the "Executed" Move at ISLFX21 

when moving a record from the user's work area into 
a buffer. This count equals R-l where R is the 
remainder when dividing ISLBMPR by 255. If R=0, 
ISLMVC is set decremented (see ISLMVCT). 

4 The count used for the BCT at ISLFX21 when moving a 

record from the user's work area into a buffer. 
This is the number of 255 byte moves plus one needed 
to move the record. This count equals Q+l where Q is 
the quotient when dividing ISLBMPR by 255. When R, 
alone, equals 0, ISLMVCT is set to equal to Q. 

72 Index Register Save area. This area is used during Load Mode 

macro time to save index registers within Load Mode. 

40 Index Register Save area. This area is used during Load Mode 

Appendage time to save index registers belonging to either the 
I/O supervisor or Load Mode Close. 

64 Index Register Save Area. This area is used during Load Mode 

CLOSE to save index registers belonging to common CLOSE. 



580(244) 


TSTWK1C 


4 


OPEN work field 


584(248) 


TSTWK2C 


4 


OPEN work field 


588(24C) 




4 


Reserved 


592(250) 


ISLNOENT 


4 


Number of spaces 



current track index track. 

Size of WRITE channel commands in CP18. If unblocked 
Records, RKP=0, ISLOFFST=8. Otherwise, ISLOFFST=24. 

At MACRO Time: 

ISLD is the displacement from the start of CP18 to the 
"CC" flag in the first WRITE CCW in the chain. If 
unblocked recards, RKP=0, ISLD=28. Otherwise, 
ISLD=44. (ISLOFFST+20) 
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Offset Field Name 



Bytes Field Description 



During Close: 

ISLD is a set of switches used when padding indexes: 

Bit = 1 for New Cylinder, otherwise 

1 = 1 for End entry, otherwise 

2 = 1 for Chained entry, otherwise 



604(250) ISLFSTBF 



608(260) ISLLSTBF 



612(264) ISLCCFAD 



616(268) ISLKEYAD 



620(26C) 
624(270) 
628(274) 
632(278) 
636(27C) 
640(280) 
644(284) 



CL1AD 
ISLF8AD 

CM IAD 
ISLFXAD 

CQ1AD 
ISLFYAD 

CQT1AD 
ISLFZAD 

CQ40AD 
ISLPAAD 

CQ45AD 
ISLF1AD 

ISLVPTRS 



60 



Pointer to first buffer scheduled for writing. This is the slot 
number in the Buffer Control Table associated with the first 
buffer to be written in the current output chain. 

Pointer to last buffer scheduled for writing. This is the slot 
number in the Buffer Control Table associated with the last 
buffer to be written in the current output chain. 

Address of the "CC" flag in the last WR CKD CCW in the 
CP18 chain. This is the "CC" flag that gets turned off 
to stop the write chain. 

Address of the key in the last record that will go on the 
current prime data track. This key will become the Track 
Index key for the given track. 

Address of CP18 skeleton (OPEN) 

Address of the instruction at ISLF800+6=PUT base (Close) 

Address of CP19 skeleton (Open). 

Address of the instruction at ISLFX20 (Close). 

Address of CP20 skeleton (Open). 

Address of the instruction at ISLFY01 (Close). 

Address of CP20 Write Check extension skeleton (Open). 
Address of the instruction at ISLFZ01 (Close). 

Address of CP21 skeleton (Open). 

Address of the instruction at ISLPA01 (Close). 

Address of CP21 Write Check extension skeleton (Open). 
Address of the instruction at ISLF110 (Close). 

Address of variable length areas and Channel Programs. 



0(0) - A (AREA Y) (Figure 68) 
+ 4(4) - A(KEYSAVE) 

+ 8(8) - A (IOBBCT) 

+ 12(C) - A(CP 18) 

+ 16(10) - A(CP 19) 

A (CP 20A or zeroes) - Full Track Index 
Write option 
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Offset 



Field Name 



Bytes Field Description 



+ 24(18) - A(CP21) 

+ 28 (1C) - Size of DCB work area-ISLCOMON (for 

FREEMAIN in CLOSE) 

Size of channel program area for FREEMAIN 

A (TISA) 

Bit - Full Track Index Write 

Bit 1 - Successful GETMAIN 
+ 40(28) - A(CP31A/31B) - Resume Load 

A (CP20B or zeroes) - Full Track 



+ 32(20) 
+ 36(24) 



- 44(2C) 

+ 48(30) 

+ 52(34) 

+ 56(38) 



Index Write option 
A (CP20C or zeroes) - Full Track 
Index Write option 
ISLFXWK1 (macro work field) 
ISLFXWK2 (macro work field) 
ISLF9WK1 (work field) 



704(2C0) ISLIGAP 

706(2C2) ISLLGAP 
708(2C4) ISLRPSSS 



HIGH LEVEL INDEX ENTRY 
COUNT DATA 



Note: When there is a permanent I/O error, ISLVPTRS+36 is 
overlaid with the address of the buffer that caused the error 
if CP 18 failed; otherwise it is set to zero. ISLVPTRS+40 
is overlaid with the SYNAD address and ISLVTPRS+44 is 
overlaid with the second word of the IOB. 

Overhead (record gap) for NON— Last record. Used in RPS 
device space allocation calculations. 

Last record overhead. 

Sectors values used in CP18, CP19, CP20, CP21, for 
RPS devices. 



CCHHRKDD 


MBBCCHHRFP 



y+8{8) 



COUNT 



TRACK INDEX ENTRIES 
NORMAL OVERFLOW 

DATA COUNT DATA 



CCHHRKDD 


MBBCCHHRFP 


CCHHRKDD 


MBBCCHHRFP 



y+18112) 



y+26{1A) 



y+ 36(24) 



y+44{2C) 



DUMMY ENTRY 



CCHHRKDD 


KEY OF ALL ONES 


MBBCCHHRFP 



y+54(36) y+62(3E) 

Figure 68. Area Y: QISAM Load Index Fields 



y+62(3E) +key length 
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QISAM Scan Mode DCB Work Area 

The QISAM scan mode DCB work area is pointed to by the DCBWKPT1 field of the DCB. The DCB 
work area format is shown in Figure 69. 



^ 






8 bytes 




^ 


0(0) W1ECBI 


4(4) 








W1IOB 




44(2C) 


W1IEXTEN 


46(2E) 


W1CPNUM 


48(30) W1ECB0 


52(34) 








W1IOBO 




92 (5C) 


W10EXTEN 


94(5E) 


W1SAV7 


W10SBIT1 


W10SBIT2 


W10SBIT3 


W1ICNOT 


100(64 


W1KEYBLK 




104(68) 


W1LPDR 






112(70) W1CBF 


116(74) 


W1EOB 




120(78) W1COUNTR 


PRIMEIND 


FIMIND 


124(7C) 


W1 FCPS 





W1QTABLE 



128(80) 


W1FR1ST 




132(84) 


W1FRLAST 


136(88) 


Reserved 


W1FREEC 


140(8C) 


W1RDIST 


144(90) 


W1RDLAST 




148(94) 


W1READR 


W1READC 


152(96) 


W1USIST 




156(9C) 


W1 US LAST 


160(A0) 


Reserved 


W1USERC 


164(A4) 


W1PX1ST 


168(A8) 


W1PXLAST 




172(AC) 


Reserved 


W1PUTXC 


176(B0) 


W1WRIST 




180(B4) 


W1WRLAST 


184(B8) 


Reserved 


W1WRITEC 









(Continued) 



Figure 69 (Part 1 of 3): QISAM Scan Mode DCB Work Area 
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(Continued) 
W1WAREA 







188(BC) 


W1COUNT 


W1C0UNT(cont.) 


196(C4) 


W1WCNXDM 


W1WCNXDM (cont.) 


204(CC) 


W1WOVFL 


W1WOVFL(cont.) 


214(D6) W1WDNXDM 


W1WDNXDM (cont.) 



224(E0) 


W1WPLEN 




W1CURLEN 


228(E4) 


W1TEMPSA 


232(E8) 




W1REGSV2 


236(EC) 


W1REGSAV 


240(F0) 




W1REGSV3 







W1CEVECT 










244(F4) 


W1CEREAD 


248(F8) 


W1CESETL 


252(FC) 


W1CEWRIT 


256(100) 


W1CECHK 


260(104) 


W1CEREWT 


264(108) 


W1CERECK 







W1ABVECT 










268(10C) 


W1ABREAD 


272(110) 


W1ABSETL 


276(114) 


W1ABWRIT 


280(118) 


W1ABCHK 


284(1 1C) 


W1ABREWT 


288(120) 


W1ABRECK 















292(124) 




W1CP23PT 


296(128) 


W1CP26PT 




300(12C) 




W1CP25PT 


304(130) 




W1CP24 






368(170) 


W1WDCXDM 










382(182) 


W1ISECT 


W10SECT 


384(184) 


W1DCBFA 



(Continued) 



Figure 69. (Part 2 of 3): QISAM Scan Mode DCB Work Area 
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RPS EXTENSION 



388(188) 



W1ICPEXT 



408(198) 



W10CPEXT 



424(1 A8) 



W1RDCNT 



432(1 BO) 



W1RDSECT 



440(1 B8) 



W1CN5SAV 



444(1 BC) 



W1RPSSA 



460(1 CC) 



W1 TOTAL 



462(1CE) W1RECLEN 



464(1 DO) $W10VLEN 



466(1 D2) W1FSTSH 



468(1 D4) 
W1RPSC1 



469(105) 
W1RPSC2 



470(1 D6) 
W1RPSI1 



47K1D7) 
W1RPSI2 



Figure 69. 


(Part 3 of 3): QISAM 


Offset 


Field Name 


0(0) 


W1ECBI 


4(4) 


W1IOBI 


44(2C) 


W1IEXTEN 


46(2E) 


W1CPNUP 


48(30) 


W1ECBO 


52(34) 


W1IOBO 



92(5C) WIOEXTEN 



94(5E) 
96(60) 



W1SAV7 
WlOSBITl 



Scan Mode DCB Work Area 
Bytes Field Description 
4 Input ECB. 



44 


Input IOB and extension. This includes: 


40 


IOB. 


2 


Input appendage code. 


2 


Input appendage code. 


4 


Output ECB. 


44 


Output IOB and extension. This includes 


40 


IOB. 


2 


Output appendage code. 




8-Write 




C— Check 




10— Rewrite 




14-Recheck 


2 
1 


Used as a save area by schedule routine. 
Overall status, byte 1. 



Bit Scan mode 

1 End of data set 

2 Overflow 

3 Read track index 

4 Key found (for SETL K) 

5 Unreachable record 

6 IOBI completion 

7 IOBO completion 
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Offset 



Field Name 



Bytes Field Description 



97(61) 



W10SBIT2 



1 



98(62) 



W10SBIT3 



99(63) 


W1ICNOT 


1 


100(64) 


W1KEYBLK 


4 


104(68) 


W1LPDR 


8 


112(70) 


W1CBF 


4 


116(74) 


W1EOB 


4 


120(78) 


Wl COUNTER 


2 


122(7A) 


PRIMEIND 


1 


123(7B) 


FIXIND 


1 


124(7C) 


W1FCPS 


4 


128(80) 


W1QTABLE 


60 


128(80) 


W1FR1ST 


4 


132(84) 


W1FRLAST 


4 


136(88) 




2 


138(8A) 


W1FREEC 


2 


140(8C) 


W1RD1ST 


4 


144(90) 


W1RDLAST 


4 


148(94) 


W1READR 


2 



Overall Status, Byte 2. 

Bit Unwritable record 

1 Work bit for write appendage 

2 'Same' cylinder indicator 

3 Shared track 

4 GET— SETL communication 

5 Scheduling 

6 RELSE 

7 SETL K Blocked 

Overall Status, Byte 3. 

Bit Buffer size 

1 CLOSE— ESETL communication 

2 Bad set indicator for write checking 
3—7 Unused 

BUFNO/2 — used to schedule input/output. 

Used by SETL K for address within the block of the requested 
record. 

Seek— Search address of the last prime data record read. 

Current buffer address. 

End-of-buffer address. 

Counter used to count number of retries for write validity 
checking. 

Switch for testing same device. 

Temporary storage. 

First Write channel program scheduled. 

Queue table consisting of: 

Pointer to first channel program on the free queue. 

Pointer to last channel program on the free queue. 

Reserved. 

Number of buffers on the free queue. 

Pointer to first channel program on the Read queue. 

Pointer to last channel program on the Read queue. 

Number of unused buffers on the Read queue. 
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Offset Field Name 



150(96) 


WIRE ADC 


2 


152(98) 


W1US1ST 


4 


156(9C) 


W1USLAST 


4 


160(A0) 




2 


162(A2) 


W1USERC 


2 


164(A4) 


W IPX 1ST 


4 


168(A8) 


W1PXLAST 


4 


172(AC) 




2 


174(AE) 


W1PUTXC 


2 


176(B0) 


W1WR1ST 


4 


180(B4) 


W1WRLAST 


4 


184(B8) 




2 


186(BA) 


W1WRITEC 


2 


188(BC) 


W1WAREA 


36 


188(BC) 


W1WC0UNT 


8 


196(C4) 


W1CNXDM 


8 


204(CG) 


W1WOVFL 


10 


214(D6) 


W1WDNXDM 


10 


224(E0) 


W1WPLEN 


2 


226(E2) 


W1CURLEN 


2 


228(E2) 


W1TEMPSA 


4 


232(E8) 


W1REGSV2 


4 


236(EC) 


W1REGSAV 


4 


240(F0) 


W1REGSV3 


4 


244(F4) 


W1CEVECT 


24 


244(F4) 


W1CEREAD 


4 



Bytes Field Description 

Number of buffers on the Read queue. 

Pointer to the first channel program on the user queue. 

Pointer to the last channel program on the user queue. 

Reserved. 

Number of buffers on the user queue. 

Pointer to first channel program on the PUTX queue. 

Pointer to last channel program on the PUTX queue. 

Reserved. 

Number of buffers on the PUTX queue. 

Pointer to the first channel program on the Write queue. 

Pointer to the last channel program on the Write queue. 

Reserved. 

Number of buffers on the write queue. 

Area for track index entries consisting of: 

Count of current index entry. 

Count of next normal or dummy entry. 

Data of current overflow entry. 

Data of next normal or dummy entry. 

Byte length of work area. 

Length of current logical record. 

Temporary storage. 

Area to save contents of a register. 

Area to save contents of a register. 

Temporary storage. 

Channel end vector table consisting of: 

Read. 



Offs 


et 


Field Name 


248 


(F8) 


W1CESETL 


252 


FC) 


W1CEWRIT 


256( 


100) 


W1CECHK 


260 


;io4) 


W1CEREWT 


264 


108) 


W1CERECK 


268( 


IOC 


) W1ABVECT 


268( 


IOC 


) W1ABREAD 


272( 


110) 


W1ABSETL 


276( 


114) 


W1ABWRIT 


280( 


118) 


W1ABCHK 


284( 


11C 


) W1ABREWT 


288( 


120) 


W1ABRECK 


292( 


124) 


W1CP23PT 


296( 


128) 


W1CP26PT 


300( 


12C 


) W1CP25PT 


304( 


130) 


W1CP24 


368( 


170) 


W1WDCXDM 


382( 


182) 


W1ISECT 


383( 


183) 


WIOSECT 


384( 


184) 


W1DCBFA 


388( 


188) 


W1ICPEXT 


408( 


198) 


WIOCPEXT 


424( 


1A9 


) W1RDCNT 


432( 


lBO^ 


W1RDSECT 



Bytes Field Description 

4 SETL. 

4 Write. 

4 Write validity check. 

4 Rewrite. 

4 Recheck. 

24 Abnormal end vector table consisting of: 

4 Read. 

4 SETL. 

4 Write. 

4 Write validity check. 

4 Rewrite. 

4 Recheck. 

4 Address CP23. 

4 Address of CP26. 

4 Address of CP25. 

64 CP24 — Read track indexes. 

10 Data of current normal track index entry 
(variable length records only). 

1 Current input channel program sector value. 

1 Current output channel program sector value. 

4 Pointer to DCB Field area. 

16 Extension to the input channel program used with 

RPS device. Set sector and TIC to input channel program. 

16 Extension to the output (PUTX) channel program 
uded with RPS device. 

8 READ COUNT of next block for channel program. 

8 READ SECTOR of next block for channel program. 
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Offset 



Field Name 



440(1B8) W1CN5SAV 

444(1BC) W1RPSSA 

460(1CC) W1T0TAL 

462(1CE) W1RECLEN 

464(1D0) WIOVLEN 

466(1D2) W1FSTSH 

468(1D4) W1RPSC1 

469(1D5) W1RPSC2 

470(1D6) W1RPSI1 

471(1D7) W1RPSI2 



Bytes Field Description 

4 Save area to restore TIC address CN5 during 
overflow processing. 

16 Register save area for RPS processing. 

2 Byte count on track. 

2 Mimimum record length, prime records 

2 Minimum record length, overflow records. 

2 Byte count to first shared track. 

1 Lower limit cylinder overflow. 

1 Upper limit cylinder overflow. 

1 Lower limit independent overflow. 

1 Upper limit independent overflow. 
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BISAM DCB Work Area 

The BISAM DCB work area is pointed to by the DGBWKPT2 field of the DCB. The DCB work area 
format is shown in Figures 70 and 71. 



0(0) 






DCWFCP4 






4(4) 






DCWFCP7 






8(8) 


DCWNUCPS 


DCWNUCP4 


10(A) 


DCWNUCP7 


DCWNLSD 


12(C) 






DCWFIOBU 






16(10) 






DCWLIOBU 






20(14) 






DCWFUPDI 






24(18) 






DCWLUPDI 






28(1C) 


DCWHIAV 


DCWWKNI 


30(1 E) 


DCWLEVC 


DCWNUWKN 


32(20) 






DCWMSHIL 






36(24) 


DCWHIRPS 


DCWNACT 


38(26) 


DCWSIZE 




40(28) 






DCWOPCLS 






48(30) 






DCWFIOBE 






52.(34) 


DCWERRCT 


53(35) 




DCWLIOBE 




56(38) 






DCWSIOA 






60(3C) 






DCWDCBFA 







Figure 70. BISAM Work Area: Fixed Format Records 



through 60 is the same format as that for Fixed Format Records as shown in Figure 70, 



64(40) 



DCWIPG 



66(42) 



DCWLPG 



68(44) 



DCWIOG 



70(46) 



DCWLOG 



Figure 71. BISAM Work Area: Variable Format Records 
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Offset Field Name 



0(0) 



DCWFCP4 



4(4) 


DCWFCP7 


8(8) 


DCWNUCPS 


9(9) 


DCWNUCP4 


10(A) 


DCWNUCP7 


11(B) 


DCWNLSD 



Bytes Field Description 

4 Pointer to the first available set of channel programs in the 

CP4-CP5-CP6 or CP4-CP5W-CP6W queue. The second 
word of the second CCW in the channel program set points 
to the next set of channel programs. The pointer is zero in 
the last set on the queue. If no set of channel programs is 
available, this field is zero. 

4 Pointer to the first available CP7 or CP7W. This queue is 

handled dimilarly to the one pointed to by DCWFCP4. 

1 The number of IOBs awaiting CP1 or CP2. 

1 The number of IOBs awaiting CP4-CP5-CP6 or 

CP4-CP5W-CP6W. 

1 The number of IOBs awaiting CP7 or CP7W. 

1 The number of high level indexes searched on device. This 

number equals DGBNLEV unless the highest level index 
is searched in core, in which case the number equals 
DGBNLEV minus one. 



12(C) DCWFIOBU 



Address of the first IOB in the queue of unscheduled IOBs. 
This field is zero if no IOBs are unscheduled. 



16(10) DCWLIOBU 



Address of the last IOB in the queue of unscheduled IOBs. 
This field is zero if no IOBs are unscheduled. 



20(14) DCWFUPDI 



24(18) DCWLUPDI 



28(1C) DCWHIAV 



Address of the first IOB in the update queue, that is the queue 
of IOBs for which a READ KU has been successfully completed, 
but for which no WRITE K has yet been issued. This field is 
zero when the queue is empty. 

Address of the last IOB in the update queue. This field is zero 
when the queue is empty. 

Switches 
Bit 

CP1 or CP2 is available. 

1 Highest level index must be searched in core. 
2—7 Reserved. 



29(1D) DCWWKNI 



WRITE KN is in process. 

1 First time switch (used with various WRITE KN channel 
programs which are executed repetitively). 

2 Same module switch. 

3 Add to the end of the data set. 

4 CP 1 2 A or CP 1 3 A detected an end-of-f ile mark. 

5 CP1 1A - First use by a given WRITE KN. 

6 Work area for Write KN was obtained by Open (VLR 
only) 

7 Reserved. 
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Offset Field Name 



Bytes Field Description 



30 (IE) DCWNLEVC 

31 (IF) DCWNUWKN 

32(20) DCWMSHIL 

36(24) DCWHIRPS 

37(25) DCWNACT 

38(26) DCWSIZE 

40(28) DCWOPCLS 



48(30) 



DCWFIOBE 



52(34) DCWERRCT 



53(35) DCWLIOBE 



56(38) 


DCWSIOA 


4 


60(3C) 


DCWDCBFA 


4 


64(40) 


DCWIPG 


2 


66(42) 


DCWLPG 


2 


68(44) 


DCWIOG 


2 


70(46) 


DCWLOG 


2 



Counter used when rewriting high-level indexes. 

The number of WRITE KN IOBs awaiting completion of 
WRITE KN. 

Address of the last active high level index entry in core. This 
field is zero when the high level index is not searched in core. 

Used with WRITE KN. It contains DCBHIRPD if the current 
track of prime data being processed is not shared with 
a track index or DCBHIRSH if it is. 

The number of Read or WRITE K IOBs awaiting completion 
of WRITE KN. 

The total size, in doublewords, of (1) the DCB WA, (2) all the 
channel programs, and (3) the minimum size work area up by 
WRITE KN if the user has not supplied a work area. 

Data saved by the common ISAM open executor in 
DCBWKPT3 an DCBWKPT4. This data will be restored in those 
two fields BISAM close and will be used by the common 
ISAM close executor. (The data saved is the address of 
the format 2 DSCB and the UCB address of the device on 
which the volume containing the DSCB is mounted. This 
address is in the CCHHR). 

Address of the first IOB on the error queue, which contains 
requests that ended with a permanent error or used a dynamic 
buffer. This address is zero if the queue is empty. 

Number of positions left for IOBs to be placed on the error 
queue. Maximum value = 2XNCP+BUFNO. 

Address of the last IOB on the error queue. This address is 
zero if the queue is empty. 

Address of the RPS SIO Appendage. 

Pointer to DCB Field Area. 

Non-last prime record overhead (variable length records only). 

Last prime record overhead (variable length records only). 

Non-last overflow record overhead (variable length records 
only). 

Last overflow record overhead (variable length records only). 
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QISAM Track Index Save Area 

Calculations For The Track Index Save Area 

The size of the Track Index Save Area (TISA) is equal to the total of the following five items: 

1 . TISA control fields - 20 bytes. 

2 . Area for the track index entries : 

a. Numberof entries equal the maximum number of entries on a track. This will be ISLNIRT if the track 
indexisononetrack; otherwise , ISLHIRT will be used. If ISLHIRT is odd, then the calculations are 
p erformed with the number of entries equal to ISLHIRT + 1 to allow the save area enough space for the 
last pair of entries. 

b. Size of each entry equals COUNT + KEY + DATA 

COUNT =8 

KEY - KEY LENGTH 

DATA =10 

3. Channel program 20A if no shared track. 

4. Channel program 20B if shared track. 

5. Channel program 20C if write check. 

Track Index Save Area (TISA) 

Pointers To Save Area Save Area 



ISLVPTRS+36 



ISLVPTRS+20 



ISLVPTRS+40 



ISLVPTRS+44 



TISA CONTROL FIELDS 



TRACK INDEX ENTRIES 



CP20A 



CP20B 



CP20C 



Figure 72. Track Index Save Area 
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+0 



+8 



+ 16 



FTIWIOB 



SIZE 



FLAGS 



HIGHR 



CURRR 



NEXTTI 



TISASIZE 



Figure 73. TISA Control Fields 
Field Name Bytes 
FTIWIOB 8 

SIZE 2 

FLAGS 1 



HIGHR 



CURRR 



NEXTTI 



TISASIZE 



Description 

MBBCCHHR for the prime data track which is pointed to by the 
seek CCW in CP20 and the search CCW in CP 1 8 . 

Length of one track index entry (8+KL+10). 

X'80' — Resume Load. Turned on for the first track index write. 
X'40' — Close. Turned on by 2021 to force writing of the track 

index. 
X'20' — End of track index track. 
X'10' — End of cylinder. 
X'08 5 - Execute CP20 alone (withoneCP 18). 

Highest record number for the current track of track index (either 
ISLHIRTorlSLNIRT). 

Current record number (last record moved to TISA). Initialized to 
zero. 

Address in TISA where the next track index entry will be placed. 
Initialized to TISA + 20. 

Size of TISA which is saved for Close to issue a FREEMAIN. 
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ISAM DCB Field Area 



00(00) 



DFATDC 



02(02) 



DFARORG3 



06(06) DFANREC 



DFANREC (cont.) 



10(0A) 
DFAST 



11 (OB) 



DFALPDA 



DFALPDA (cont.) 



19(13) 



DFANBOV 



21(15) DFARORG2 



23(17) 
DFANOREC 



DFANOREC 
(cont.) 



25(19) 



DFALIOV 



DFALIOV 
(cont.) 



33(21) 



DFARORG1 



36(24) 



DFACOUNT 



Figure 74. DCB Field Area 
Offset Field Name 



00(0) 



02(02) 



DFATDC 



DFARORG3 



06(06) DFANREC 
10(0A) DFAST 



11 (0B) DFALPDA 

19(13) DFANBOV 

21(15) DFARORG2 

23(17) DFANOREC 

25(19) DFALIOV 

33(21) DFARORG1 
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Bytes Field Description 

2 Tag deletion count. User's count field for records marked for 

deletion. (Refer to DCBTDC in the Data Control Block.) 

4 The number of READ or WRITE accesses to an overflow 

record, in each use of the data set, which is not the first 
record in a chain of overflow records. 

4 Number of logical records in the prime data area. 

1 Status indicators. 

Bit — Single schedule mode 

1 — Key sequence to be checked 

2 — Initial load has been completed 

3 — Data set extension (resume loading) will begin on 

new cylinder. 

4 — Reserved 

5 — First macro not yet received 

6 — Last block full 

7 — Last track full 

8 Direct access device address of the last prime data record in 

the prime data area (in the form MBBCCHHR). 

2 Number of bytes remaining on current overflow track 
(variable length records only). 

2 Number of tracks (partially or wholly) remaining in the 

independent overflow area. 

2 Number of logical records in a overflow area. 

8 Direct access device address of the last record written in the 

independent overflow area (in the form MBBCCHHR). 

2 Number of cylinder overflow areas that are full. 



Offset Field Name Bytes Field Description 

35(23) Not used. 

36(24) DFACOUNT 4 Number of DCBs open on this data set. 
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SECTION 6: DIAGNOSTIC AIDS 



Appendage Codes 

Asynchronous Codes 

Exception Codes 



E 



Appendage Codes 



Before an EXCP command is issued, QISAM scan mode and BISAM put an appendage code into the 
IOB extension. When the appendage is entered from the I/O supervisor, the appendage routine tests the 
code to determine which functions to perform to complete processing for the input/output request. 

When an appendage routine schedules an asynchronous routine, it puts an asynchronous code into the 
IOB extension. When the asnychronous routine gains control, it tests the asynchronous code to determine 
the functions it must perform. 

QISAM Scan Mode Appendage Codes 

The following codes apply under both channel end and abnormal end conditions: 

Code Meaning 

Completion of READ. 

4 Completion of SETL (K or I). 

8 Completion of WRITE (with or without write checking). 

12 Completion of CHECK (read-back for write checking). 

16 Completion of REWRITE (write-back when write checking). 

20 Completion of RECHECK (read-back after REWRITE during write checking). 

BISAM READ and WRITE K Appendage Codes 

The following codes apply under both channel end and abnormal end conditions: 
Code Meaning 

Completion of CP4-5-5W for READ. 

1 Completion of CP4-5-5W for WRITE. 

2 Completion of CP7 or 7W. 

3 Completion of CP1 or CP2. 

5 Completion of CP6 or 6W. 

6 Completion of CP5W for write checking after WRITE. 
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BISAM WRITE KN Appendage Codes 

The following codes apply under both channel end and abnormal end conditions: 
Code Meaning 

4 Completion of CP14, part 2 (fixed length records with user work area). 

7 Completion of CP1 or CP2 for WRITE KN. 

8 Completion of CP8. 

9 Completion of CP10A for true insert or CP14, part 2 (variable length records), for EOF 
Extension. 

10 Completion of CP10B for true insert or CP14, part 2 (variable length records), when part 1 has 
been executed. 

1 1 Completion of CP10B for addition to end of data set. 

12 Completion of CP14 or CP14, part 1 (fixed length records with user work area and variable 
length records), for set-ups 1, 2, and 5 (asynchronous routine codes 9, 10, and 13). 

13 Completion of CP14 or CP14, part 1 (fixed length records with user work area and variable 
length records), for set-ups 3, 4, and 6 (asynchronous routine codes 11, 12, and 14). 

14 Completion of CP15. 

15 Completion of CP16 for setup 2 (search overflow chain for last overflow record in the chain: 
addition to end of data set). 

16 Completion of CP16 for setup 2 (search overflow chain for record which logically precedes or is 
equal to new record to be added: true insertion). 

17 Completion of CP17 when used for track index only or CP14 part 2 (variable length records) 
when part 1 has not been executed (no overflow). 

18 Completion of CP17 when used for track index and when it is to be continued for higher level 
indexes. 

19 Completion of CP17 when it is to be started or continued for higher level indexes. 

20 Completion of CP9A, or CP 1 1 A, or CP 1 2 A, or CP 1 3 A, or CP 1 2AV. 

21 Completion of CP9B, or CP11B, or CP12B, or CP13B, or CP12BV. 

22 Completionof CP9C or CP123W or CP123WV. 

23 Completion of CP10A for addition to end of data set. 

24 Completion of CP12C or CP13C. 
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Asynchronous Codes 

BISAM READ and WRITE KN Asynchronous Codes 

The following codes direct asynchronous coding to the proper routines: 

Code Condition 

Successful completion of CP4— 5— 6. 

1 Do an EXCP. 

2 Successful completion of CP 7. 

3 Successful completion of CP1 or CP2. 

4 Unsuccessful completion of CP4— 5— 6. 

6 Unsuccessful completion of CP 7. 

7 Unsuccessful completion of CP1 or CP2. 

BISAM WRITE KN Asynchronous Codes 

The following codes direct asynchronous coding to the proper routines: 

Code Condition 

1 Scheduled to do an EXCP which could not be done in an appendage routine because a different 

device (UCB) was involved. 

8 Scheduled upon the successful or unsuccessful completion of a WRITE KN macro. 

9 Scheduled to set up and execute CP14 when a record is bumped from a prime data track as a 
result of a new record being placed on that track (setup 1). 

10 Scheduled to set up and execute CP14 when a new record is to be added to the end of the data 
set, the last track is full, and no overflow chain currently exists for the last track (setup 2). 

11 Scheduled to set up and execute CP14 when a new record is to be added to the end of the data 
set, the last track is full, but an overflow chain does already exist for the last track (setup 3). 

12 Scheduled to set up and execute CP14 when a new record is a true insert and it is to go in the 
middle of an overflow chain (setup 4). 

13 Scheduled to set up and execute CP14 when a new record is a true insert and it is to become the 
first record in an already existing overflow chain (setup 5). 

14 Scheduled to set up and execute CP14 when a new record is a true insert and it has a key equal to 
that of the key of a record in the overflow chain, which record is marked for deletion. The new 
record simply replaces the deleted record (setup 6). 

15 Variable length records only: Scheduled to set up and execute CP14 when more than one record 
is bumped from a prime data track (setup 1). 
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Code Condition 

16 Variable length records only: Scheduled to set up and execute CP14 Extention to write an EOF 

mark in independent overflow. 
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Exception Codes 



QISAM Exception Codes 



QISAM exception codes and the macro instructions which set them are summarized in Table 12. 
Table 12. QISAM Exception Code Summary 



Exception Code 


Code Set By 


Condition if On 


Field 


Bit 


CLOSE 


GET 


PUT 


PUTX 


SETL 


DCBEXCD1 













Type K 


Record not found 


1 










Type I 


Invalid actual address 
for lower limit 


2 






X 






Space not found in 
which to add a record 


3 










X 


Invalid request 


4 




X 








Uncorrectable input error 


5 


X 




X 


X 




Uncorrectable output error 


6 




X 






X 


Block could not be 
reached (input) 


7 


X 


X 








Block could not be 
reached (update) 


DCBEXCD2 









X 






Sequence check 


1 






X 






Duplicate record 


2 


X 










Data control block closed 
when error routine entered 


3 




X 








Overflow record 1 


4 






X 






Length of logical record 
greater than DCBLRECL 
(Variable length records only) 


5-7 












Reserved for future use 


1 TheSYNAD routine is entered only if bit 4, 5, 6, or 7 of DCBEXCD1 is also on. 
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BISAM Exception Codes 

BIS AM exception codes and the macro instructions which set them are summarized in Table 13. 
Table 13. BISAM Exception Code Summary 



Exception Code 


Code Set By 


Condition if On 


Field 


Bit 


READ 


WRITE 


DECBEXCD1 





X 


TypeK 


Record not found 


1 


X 


X 


Record length check 


2 




Type KN 


Space not found 


3 




Type K 


Invalid request 


4 


X 


X 


Uncorrectable I/O error 


5 


X 


X 


Unreachable block 


6 


X 




Overflow record 


7 




Type KN 


Duplicate record 


DECBEXCD2 


0-5 






Reserved for future use 


6 


X 


X 


Channel program initiated 
by an asynchronous routine 
(variable length records only) 


7 


X 




Previous macro was 
READ KU 
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SECTION 7: APPENDIXES 



Appendix A: Indexed Sequential Data Set Organization 
Appendix B: ISAM Channel Programs 



B 



Appendix A: Indexed Sequential Data Set Organization 



Introduction 

The Indexed Sequential Access Methods (ISAM) can be defined as the combination of data set 
organization and the techniques used to process the data. With the indexed sequential organization, data 
records are arranged in logical sequence by a key field. An indexed sequential data set resides on direct 
access storage devices and can occupy up to three different areas: 

• Prime Area 

This area contains data records and related track indexes. It exists for all ISAM data sets. 

• Overflow Area 

This area contains overflow from the prime area when new data records are added. It is optional. 

• Index Area 

This area contains master and cylinder indexes associated with the data set. It exists for a data set 
that has a prime area occupying more than one cylinder. 

The indexes of an ISAM data set are analogous to the index card file in a library. For example, if the 
library user knows the name of the book or the author, he can look in the index card file and obtain a 
catalog number which will enable him to locate the book in the book files. He would then go to the shelves 
and proceed through each row until he found the shelf containing the book. Usually each row contains a 
sign to indicate the beginning and ending numbers of all books in that particular row. Thus, as he proceeded 
through the rows, he would compare the catalog number obtained from the index with the numbers posted 
on each row. Upon locating the proper row, he would then search that row for the shelf that contained the 
book. Then he would look at the individual book's numbers on that shelf until he found the particular 
book. 

ISAM uses the indexes in much the same way to locate records in an indexed sequential data set. The 
operating system provides both the queued and basic access techniques to process an indexed sequential 
data set. The queued access technique is used to create the data set and add records to the end. It can also 
be used to sequentially process or update the records. The basic technique is used to read or update records 
and to insert new records at any place in the data set. 

Data Set Structure 

The overall structure of an indexed sequential data set is shown in Figure 75. The prime area contains 
data records arranged according to the collating sequence of a key field in each record. As the records are 
stored (written) in the prime area, the system prepares a track index. Each entry in the track index 
identifies the key of the last record on each track. There is a track index for each cylinder in the data set. If 
more than one cylinder is used, the system develops a higher level index called a cylinder index. Each entry 
in the cylinder index identifies the key of the last record in the cylinder. 
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Figure 75. Index Sequential Data Set Structure 

To increase the speed of searching the cylinder index, you can request the system to create a master 
index that indexes the cylinder index. You can specify through the data control block (NTM and OPTCD 
operands) that, if the size of a cylinder index exceeds a certain number of tracks, a master index should be 
created. The example in Figure 75 shows an entry in the master index (first level) for each one track of 
cylinder index entries. If the size of the master index exceeds the number of tracks specified in the data 
control block, the master index is automatically indexed by a higher level master. This is illustrated in 
Figure 75 by the second level master. Three such higher level master indexes can be constructed. 

Prime Data Areas 

Records are written in the prime area when the data set is created or updated. Figure 76 illustrates the 
initial structure of a cylinder of the prime area. The track index is contained on the first track of the 
cylinder. Note that a pair of track index entries is associated with each prime track in the cylinder. In this 
example, the last track of the cylinder is reserved for a cylinder overflow area. 
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14 



22 



15 



24 



16 



26 



N 
100 




100 



19 



27 



TRACK 
INDEX 



PRIME 
DATA 



90 



93 



97 



100 



CYLINDER 
OVERFLOW 



Figure 76. Initial Structure of Prime Cylinder 
Index Areas 

The operating system automatically generates at least two levels of indexes: a track index and a cylinder 
index. (Up to three levels of master indexes are created if requested.) 

Track Index 

This is the lowest level of index and is always present. There is one such index for each cylinder in the 
prime area; it is written on the first track of the cylinder that is indexes. The index consists of a series of 
paired entries; that is, a normal and an overflow entry for each prime track. The normal entry contains the 
home address of the prime track and the key of the highest record on the track. The overflow entry is 
originally the same as the normal entry. It is changed when records are added to the data set. 

In Figure 77, the track index is an expanded detail of the index shown in Figure 76. Note that the data 
area of the first normal entry points to track 01 and the key area represents the highest key on track 01. 
Since this figure illustrates the initial structure of the data set, the first overflow entry is the same as the 
normal entry. 
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Cylinder Index 



100 



01000 



200 


02000 
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03000 



Data: Home address of track 
index for cylinder 01 

Key: Highest key on 
cylinder 01 
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each cylinder of 
the prime data area 
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Track Index 
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Addr. 





Normal 
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i 
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Overflow 
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Overflow 



Data: Home address of 
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prime data track 01 



019 


01021 



One normal and one 
overflow entry for 
each prime data track 
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^ 
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01031 
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01031 



Dummy 



Data Records 



L 



Figure 77. Structure of Cylinder Index and Track Index 

Cylinder Index 

For every track index created, the system generates a cylinder index entry. There is one cylinder index 
for a data set, each entry of which points to a track index. Since there is one track index per cylinder, there 
is one cylinder index entry for each cylinder in the prime area. In Figure 77, the data area of the first 
cylinder index entry points to the home address of the track index for cylinder 01. The key area contains 
the number 100 which represents the highest key on the cylinder. For simplicity, in Figure 77 only the 
cylinder, track, and record number portion of the address in the data areas in shown. 

Overflow Areas 

As records are added to an indexed sequential data set, space is required to contain those records that 
will not fit on the prime data track on which they belong. You can request that a number of tracks be set 
aside as a cylinder overflow area to contain overflows from prime tracks in each cylinder. When a cylinder 
overflow area is specified, record zero of the track index is used as a Cylinder Overflow Control Record (see 
Figure 77). ISAM uses this record to keep such information as the address of the last overflow record in the 
cylinder and the number of bytes remaining on current overflow track. 

An advantage of using cylinder overflow areas is a reduction of search time required to locate overflow 
records. To access the cylinder overflow area requires only a seek to another track within the cylinder. This 
can be performed with Jess system overhead than a seek to another cylinder as is required to access an 
independent overflow area. 

Instead of, or in addition to, cylinder overflow areas, you can request an independent overflow area. 
Overflow from anywhere in the prime data area is placed in a specified number of cylinders reserved for this 
area. An advantage of having an indepepdent overflow area is a reduction in unused space reserved for 
overflow. A disadvantage is the increased search time required to locate overflow records in an independent 
area (see Figure 79). 
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It is a good practice to request cylinder overflow areas large enough to contain a reasonable number of 
additional records, and an independent overflow area to be used as the cylinder overflow areas are filled. 

Adding Records to a Data Set 

A new record added to an indexed sequential data set is placed into a location on a track determined by 
the value of its key field. If records were inserted (added) in precise physical sequence, insertion would 
require shifting all records of the data set with keys higher than that of the one inserted. However, because 
an overflow area exists, the indexed sequentail data organization allows a record to be inserted into its 
proper position with only the records on the track in which the insertion is made being shifted. 

When a record is to be inserted, the records already on the prime track that are to follow the new 
record are written back on the track after the new record. If the addition of records results in insufficient 
track space for all the records to be written onto the track, the records that do not fit are written onto an 
overflow track. This technique maintains the sequential order of records on the prime track. Three 
situations may occur when a record is added to a data set. Each is discussed below. 

First Addition To a Prime Track 

When a data set is created, its records are placed on the prime tracks in the storage area allocated to the 
data set as shown in Figure 76. If a record, e.g., record 3, is to be inserted into the data set, the indexes 
indicate that record 3 belongs on prime track 01. Record 3 is written immediately following record 2, and 
records 4 and 6 are retained on prime track 01 (see Figure 78). Since record 8 no longer fits on this track, it 
is written on track 09 (cylinder overflow track). 

The key area of the normal index entry is changed, since record 6 is now the highest record on the 
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Figure 78. Structure of Prime Cylinder After Cylinder Overflow 
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track. The data area of the overflow index entry is changed; it now points to record 8 as the first record on 
track 09. The first addition to a track is always handled in this way. 

When records 9 and 10 are added, prime track 02 receives these records as shown in Figure 78. Record 
19 is shifted to track 09 (cylinder overflow track). Record 16 is also shifted to the overflow track after 
record 19. Note that records 16 and 19 are chained together to show their logical sequence and to indicate 
that they are associated with the same prime track. (Overflow records are chained through a link field 
which forms the first 10 bytes of each overflow record.) 

Subsequent Additions To a Track 

Subsequent additions are written either on the prime track where they belong or as part of the overflow 
chain from that track. If the addition belongs between the last prime record on a track and a previous 
overflow from that track, it is written in the first available location in the overflow area, with its link field 
containing the address of the next record in the chain. Because the data area of the overflow index entry 
always refers to the address of the lowest key in a chain, it is changed. 

If subsequent additions belong on a prime track, they are written in proper sequential location on the 
prime track. For example, records 11 and 13 as shown in Figure 79, are written in proper sequential 
position on track 01. Record 15 (previously the highest record on the prime track) is shifted to the cylinder 
overflow area with its link field chaining to record 16. Record 14 is shifted to the independent overflow 
area since the cylinder overflow area is full. The link field in record 14 points to record 15, the next record 
in the chain. The key area of the normal index entry is changed to indicate that record 13 is the highest on 
the prime track. The data area of the overflow index entry is changed to point to record 14 in the 
independent overflow area as the first record in the overflow chain. 
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Figure 79. Structure of Prime Cylinder After Independent Overflow 
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Addition of High Keys 

A record with a key higher than the current highest key in the data set is placed at the end of the prime 
area, if there is room. Such an addition is handled, in effect, as if it had been presented when the file was 
first created. 



If the prime area is full, the new record is written in the overflow area and linked to the overflow chain 
from the last prime track. The key area of higher-level indexes is changed to reflect the addition. 

Detailed Index Description 

All index records have three sections: count, key, and data (except the cylinder overflow control 
record, which has no key section). Index records are formed in main storage and written on direct access 
devices by QISAM load mode channel programs operating with I/O supervisor. BISAM channel programs 
may later cause sections of the indexes to be updated when deleting and/or adding records to the data set. 
In all records (index and data), the BB portion of MBBCCHHR will be zero. The BB portion of the IOB will 
be filled prior to EXCP from the DEB. This avoids having to mount 2321 bins back into the same position 
in which they were created. Figure 80 shows the ISAM index entry format. 

-* 8 Bytes »~ ■ * -K * ~ -• 10 BYTES »- 



ID 


K 


D D 


CC 


HH 


R 




'000A' 



INDEX ENTRY 



M 



BB 



CC 



HH 



COUNT 

Figure 80. Format of ISAM Index Entry 



KEY 



DATA 



The count section is eight bytes in length, in the following format: CC HH R K D D. 

CCHHR 

is the direct access-device address of this index entry; the components of this address vary with the type 
of device. 



K 



is the length of the key of each record in the data set. It is also the length of the key section of each 
index entry. 

DD 

is the length of the data section of each index record. It is always hexadecimal '000A* (incicating 10 
bytes) except for the cylinder overflow control record, whose data section is 8 bytes long. 

The key section is always the same length as the key of each record in the data set, and has a value 
equal to the highest key referenced by this entry. 

The data section is always (except for the cylinder overflow control record) 10 bytes in length, in the 
following format: 

M BB CC HH R F P. 

The first 8 bytes contain the direct access device address of the data record whose key is equal to the 
key section of this index entry. 

This address is represented as follows: 
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00000 


normal entry, 


00001 


normal entry, 


00010 


overflow entry, 


00011 


overflow entry, 


00100 


dummy entry, 


00101 


dummy entry 


00110 


inactive entry 



M 

is the DEB extent serial number. 

BB CC HH R 

is the direct access-device address of the data record. The components of the address vary with the type 
of device. 

F, the flag reference code byte, is broken down into bits, as follows: 

Bit 12 3 4 5 6 7 
C C C C C I I I 

where CCCCC is the Index Entry Type Code and III indicates Level of Index Entry. 

The following are Valid Index Entry Type Codes: 

CCCCC = 00000 normal entry, data record resides on unshared track 

data record resides on shared track 
end (last entry in chain) 
chained (not last entry in chain) 
end of index 
chained 



Inactive entries are written by QISAM load mode CLOSE executors to fill out allocated, but unused, 
space at the end of each index. 

The following are valid codes for Level of Index Entry: 

III = 000 Track Index 

001 Cylinder Index 

010 First Level Master Index 

011 Second Level Master Index 
100 Third Level Master Index 

P, the command code byte, is referenced by channel programs. The three valid hexadecimal command 
codes are IB, 0B, and 07. 

IB = Seek HH These are used for entries whose data records are on the same volume as the 

index entry. 

0B = SeekCCHH 

07 = Seek BB CC HH This is used when the data record is on a volume oth er than the one on which 

the index entry resides. For the 2321 data cell drive, the seek code must be 07 if 
the data set crosses a strip. It is also used in all overflow and dummy index 
entries. Its purpose is to cause an interrupt during the execution of ISAM 
channel programs (protection check) so that the ISAM appendage routines can 
issue another EXCP or check for an error or special procedure. 
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Track Index Records 

Track index entries consist of a series of paried entries; that is, a normal and an overflow entry for each 
track. A dummy end entry indicates the end of the index, which may be padded out with inactive entries. 
The first track of a track index may contain a cylinder overflow control record. 

Track Capacity Record 

The track capacity record is RO of each prime data track for variable length records. Bytes 0-1 of the 
data portion contain the number of unused bytes currently left on the track. Byte 2 contains the highest 
record ID currently on the track. 

Cylinder Overflow Control Record 

The cylinder overflow control record is the RO record on the first track of the track index, if the 
DCBOPTCD field has specified the cylinder overflow option. It has no key section. The 8-byte data section 
is the following format : 

HH R YY T 00. 

Initially, 

HH R 

indicates the first track of the cylinder overflow area, and R = 0. 

After overflow has occurred, 

HH R 

indicates the track and record number of the last overflow record. 

YY 

indicates the number of unused bytes remaining on the current overflow track, but is not maintained 
when the data records are of fixed length. 

T 

indicates the number of tracks remaining unused in the cylinder overflow area. 

00 

indicates that these two bytes are not used. 

Table 14 contains a detailed explanation of track index records. 
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Table 14. Description of Track Indexes 



Type of Entry 


Key 


Data 


M BB CC HH 


R 


F 


P 


Normal, Data 


Highest key on prime 


Location of track whose 


Hexadecimal '00' 


ccccc = 


Hexadecimal '1B' 


Record on 
Unshared Track 


data track pointed 
to by data portion of 
this index entry. 


highest key equals the 
key field of this index 
entry. (The cylinder is 
the same cylinder on 
which this index entry 
resides.) 




00000, 
111=000 




Normal, Data 


Same as Normal, 


Same as Normal, Data 


Record number of 


ccccc = 


Hexadecimal '1B' 


Record on 


Data Record on 


Record on Unshared 


first data record 


00001 , 




Shared Track 


Unshared Track. 


Track. 


on the shared track. 
For variable length 
records, R equals 
the highest record 
ID currently on 
the track that the 
index entry 
references. 


III =000 




Overflow, End 
and Chained 


End— same as pre- 
ceding normal index 
entry. Chained— 


End— same as preceding 
normal index entry. 
Chained— location of 


End— Hexadecimal 
'FF'. Chained— 
record number with 


End- 
ccccc = 
00010, 


Hexadecimal '07' 




highest key to over- 
flow from the track 


record with lowest key 
to overflow from the 


lowest key to 
overflow the track 


III =000 
Chained— 






referenced by this 
entry. 


track referenced by 
this entry. 


referenced by 
this entry. 


ccccc = 
00011, 
III =000 




Dummy, End 


Maximum value 


Minimum Value (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 


of Index 


(each byte equal to 
hexadecimal 'FF'). 


byte equal to 
hexadecimal '00'). 




00100, 
III =000 




Inactive 


Maximum value 


Minimum value (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 




(each byte equal to 
hexadecimal 'FF'). 


byte equal to 
hexadecimal '00'). 




00110, 
III =000 
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Overflow Linkage 

On the first overflow from a prime data track: 

1. The data portion of that track's overflow index entry is written onto the overflow track as a link field 
in front of the data section of the overflow record. 

2. The key of the prime data track's normal index entry is updated to contain the key of the last record 
remaining on the prime data track. 

3. M BB CC HH R in the data portion of the prime data track's overflow index entry is updated to 
contain the address of the overflow record. The F byte is changed from CGCCC = 00010 to 
CCGCC = 00011 to indicate that this overflow index entry is pointing to an overflow chain. 

On subsequent overflows from the prime data track: 

1. The link fields of all but the highest overflow record are modified to contain the location of the next 
higher overflow record. The F byte indicates CCCCC = 00011 (overflow chain). 

2. The link field of the highest overflow record will contain a meaningless address and the F byte indicates 
CCCCC = 00010 (end of overflow chain). 

3. The key of the overflow index entry for the prime data track is modified, if necessary, to contain the 
highest overflow key. This occurs only when adding a record to the end of the data set. 

4. The key of the normal index entry for the prime data track is modified to contain the key of the last 
record on the prime data track. 

5. The data portion of the overflow index entry for the prime data track is modified, if necessary, to 
contain the location of the lowest overflow record. 

Cylinder Index Records 

A cylinder index is created for the data set if the processing program has requested space that extents 
over more than one cylinder. Table 15 contains a detailed explanation of cylinder index records. 
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Table 15. Description of Cylinder Indexes 



Type of Entry 


Key 


Data 














M BB CC HH 


R 


F 


P 


Normal 


Highest key on the 


Location of start of track 


Record number 


ccccc = 


Hexadecimal '07' 




cylinder whose track 


index on the cylinder 


of first data 


00000, 


if this cylinder 




index begins at 


whose highest key 


record on first 


111 = 001 


index entry 




location specified 


equals the key of this 


track of the track 




references a 




by data portion of 


index entry. 


index. If no data 




track entry on 




this index entry. 




records on that 
track ( an unshared 
track), R = 
hexadecimal '00'. 




either a different 
volume, or on a 
different strip 
if the device is 
a 2321 data 
drive. Hexa- 
decimal '0B' if 
same volume 
or strip. 


Dummy, 


Maximum value, 


Minimum value, (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 


End 


(each byte equal to 


byte equal to hexa- 




00100, 






hexadecimal 'FF'). 


decimal '00'). 




III =001. 




Dummy, 


Maximum value 


Location of next track 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 


Chained 


(each byte equal 
to hexadecimal 
'FF'). 


of this cylinder index. 




00101, 
III =001 




Inactive 


Maximum value 


Minimum value (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 




(each byte equal 


byte equal to hexa- 




00110, 






to hexadecimal 'FF'). 


decimal '00'). 




III =001 
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Master Index Records 

One or more levels of master indexes are created if the DCBOPTCD field has specified this option. 
Table 16 contains a detailed explanation of master index records. 
Table 16. Description of Master Indexes 



Type of Entry 


Key 


Data 














M BB CC HH 


R 


F 


P 


Normal 


Highest key on a 


Location of the track 


Hexadecimal '00' 


ccccc = 


Hexadecimal '1B' 




track of the next 


within next lower level 




00000 


if next lowest 




lower level index. 


index, whose highest 




III =010, 


level index is on 




That track is 


key equals the key of 




011, or 


same cylinder 




pointed to by the 


this index entry. 




100 


as this index 




data portion of 








entry. 




this index entry. 








Hexadecimal '0B' 
if not on same 
cylinder, but, for 
2321 data cell 
drive, on same 
strip. 

Hexadecimal '07' 
for 2321 data 
cell drive if 
indexes cross 
strip boundaries. 


Dummy, 


Maximum value 


Minimum value (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 


End 


(each byte equal to 


byte equal to hexa- 




00100, 






hexadecimal 'FF'). 


decimal '00'). 




Ml =010, 
011, or 
100 




Dummy, 


Maximum value 


Location of next track 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 


Chained 


(each byte equal to 


of this level master 




00101, 






Hexadecimal 'FF'). 


index. 




III =010, 
011, or 
100 




Inactive 


Maximum value 


Minimum value (each 


Hexadecimal '00' 


ccccc = 


Hexadecimal '07' 




(each byte equal to 


byte equal to hexa- 




00110 






hexadecimal 'FF'). 


decimal '00'). 




111=010, 
011, or 
100 
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Appendix B: ISAM Channel Programs 



The channel program for each request using ISAM is constructed by the appropriate module. The 
address of the channel program is placed in the IOB for that request. A channel program consists of a group 
of channel command words (CCWs), each word having the following format: 



Command Code 
(1 byte) 


Address 
(3 bytes) 


Flags 
(5 bits) 


000 
(3 bits) 


(ignored) 
(1 byte) 


Count 
(2 bytes) 



NOTE: The last 4 bytes are ignored by a Transfer-in-Channel (TIC) command word. (In some TIC CCWs 
these bytes contain flags or a chain address. 

The entry in the 'Address' field is one of the following: 

• The main storage address of where data is to be placed or found; this is for a Read or a Write command 
word. 

• The location of the seek or search argument; this is for a Seek or Search command word. 

• The CCW to which a transfer is made; this is for a Transfer-in-Channel command word. 
The entry (or entries) in the 'Flags' field have the following meanings: 

CC Command chaining. 

DC Data chaining between gaps of a record. 

SK Skip the transferring of data. 

SLI Suppress incorrect length indication. 

The entry in the Count field represents either the number of data that are to be transferred or the 
number of bytes of data on which a search is to be made for comparison. 

The function or purpose of each command word or group of wrods is given in the comment following 
the "Count'Field. The channel command words are identified by the number to the left of the command 
code. 

The following abbreviations are used in the address or count fields 

WA— Work area 

KL-Key length 

DL— Data length 

CF-Storage area for count fields (8 x DCBHIRPD bytes) 
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Those BISAM or QISAM scan mode channel programs beginning with a Search ID with a count of five 
bytes are executed with a channel program prefix if an RPS (Rotational Position Sensing) device is being 
used. The prefix will be a Set Sector followed by a TIC to the regular channel program. The Channel 
Command Words that vary depending on the presence of RPS are shown in the following channel programs 
with both possible command codes. 
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CHANNEL PROGRAM 1 



Searches cylinder and master indexes 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


C01 


31 


Search ID equal 


IOBSEEK+3 


60 


CC, SLI 


4 


Search for equal CCHH to verify seek— 
IOBSEEK set from either DCBFTHI or 
index entry in main storage 


C02 


08 


TIC 


C01 


00 







C1 


69 


Search key high 
or equal 


Contents of 
DECBKEY 


60 


CC, SLI 


KL 


Too far along index? 


Search for 
master index 
entry 


C2 


08 


TIC 


C4 


00 







No 


C2B 


03 
23 


TIC NOP 
Set sector 


C28+5 


60 


CC,SLI 


1 


Set sector to zero 


C3 


1A 


Read home 
address 


C8 


50 


CC, SK 


5 


Yes, position to 
start of track 


C4 


E9 


Search key high 
or equal (MT) 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for entry 


C5 


08 


TIC 


C4 


00 








C6 


06 


Read data 


C8+7 


00 
40 


CC (lowest 
master) 


10 


When found, read master index, CC off if 
lower level master index is to be searched 


C7 


08 


TIC 


C10 


00 







Go search cylinder index 


C8 


M 

BBCCHHRF 


Master index entry-IOBSEEK set to 
C8+7 when this CP is restarted for 
lower level master index 


C9 


C10 


P 


Seek 


C9 


40 


CC 


6 


Seek cylinder index (Table 16) 


C10A 


31 


Search ID equal 


C9+2 


40 


CC 


4 


Search for equal CCHH to verify seek 


C10B 


08 


TIC 


C10A 


40 


CC 





C11 


69 


Search key high 
or equal 


Contents of 
DECBKEY 


40 


CC 


KL 


Too far along index? 


Search for 
cylinder 
index entry 


C12 


08 


TIC 


C14 


00 







No 


C12B 


03 
23 


NOP 
Set sector 


C12B+5 


60 


CC, SLI 


1 


Set sector to zero 


C13 


1A 


Read home 
address 


C8 


50 


CC,SK 


5 


Position to start of track 


C14 


E9 


Search key high 
or equal (MT) 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for entry 


C15 


08 


TIC 


C14 


00 








(continued) 
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CHANNEL PROGRAM 1 (continued) 



Searches cylinder and master indexes 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


C16 


06 


Read data 


C17 


00 




DL 


Read in cylinder index entry 


C17 


MBBCCHHR 


Cylinder index entry-IOBSEEK for 
CP4setto C17 


C18 






F P 
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CHANNEL PROGRAM 2 



Searches a cylinder index when it is the highest level index searched on the device 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


C28 


31 


Search ID equal 


IOBSEEK+3 


60 


CC, SLI 


4 


Search for equal CCHH to verify seek— 
IOBSEEK set from either DCBFTHI or 
index entry in main storage 


C29 


08 


TIC 


C28 


00 







C30 


69 


Search key high 
or equal 


Contents of 
DECBKEY 


60 


CC, SLI 


KL 


Too far along index? 


Search for 
cylinder index 
entry 


C31 


08 


TIC 


C33 


00 







No 


C31B 


03 
23 


NOP 
Set sector 


C31B+5 


60 


CC, SLI 


1 


Set sector to zero 


C32 


1A 


Read home 
address 


C37 


50 


CC, SK 


5 


Yes, position to start 
of track 


C33 


E9 


Search key high 
or equal (MT) 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for entry 


C34 


08 


TIC 


C33 


00 







C35 


06 


Read data 


C36 


00 




10 


Read in cylinder index entry. 


C36 


MBBCCHHR 


Cylinder index entry— IOBSEEK set to 


C37 






F P 








C36 when CP4 is executed 
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CHANNEL PROGRAM 4 



Searches a track index 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA01 


31 


Search ID equal 


IOBSEEK+3 


60 


CC 


4 


Search for equal CCHH to verify seek— 
IOBSEEK set from C17 (CP1), C36 
(CP2), DCBFTHI or entry in main 
storage 


CA02 


08 


TIC 


CA01 


Address of CP5 in CP 4-5-6 
chain (see Figure 15) 


CA03 


08 


TIC 


CA1 or CA5 


00 







TIC to CA1 if shared track is present. 
Otherwise, TIC to CA5. 


CA1 


71 


Search ID high 
or equal 


IOBSEEK+3 


40 


CC 


5 


In prime data part of track? 


Search 

track 

index 


CA2 


08 


TIC 


CA5 


00 







No 


CA4 


08 


TIC 


CA7 or CA6B 


00 







Yes 


CA5 


69 


Search key high 
or equal 


Contents of 
DECBKEY 


60 


CC,SLI 


KL 


Too far along in index? 


CA6 


08 


TIC 


CA8 


00 







No 


CA6B 


03 
23 


NOP 
Set sector 


CA6B+5 


60 


CC,SLI 


1 


Set sector to zero 


CA7 


1A 


Read home 
address 




50 


CC,SK 


5 


Yes, position to start of track 


CA8 


E9 


Search key high 
or equal (MT) 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for entry 


CA9 


08 


TIC 


CA8 


00 







CA10 


06 


Read data 


CA12+7 


40 


CC 


10 


If found, read index entry 


CA11 


08 


TIC 


CAM 


00 









CA12 


M 

BBCCHHRF 


Track index entry 


CA13 


CAM 


P 


Seek 


CA13 


40 


CC (to CP5) 


6 


Seek prime data track (see Table 15) 
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CHANNEL PROGRAM 5/5W 



Searches prime data tracks and reads or writes prime data records 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA15 


23 
03 


Set sector 
NOP 


CA15+5 


60 


CC, SLI 


1 


Position to beginning of track if RPS 
device. Set sector to zero if RPS. 


CA16A 


31 


Search ID equal 


CA13+2 


40 


CC 


5 


Search past index on shared track or past 
R0 on normal track. Should be RHA 
and TICtoCA20for VLR. 


CA16B 


08 


TIC 


CA16A 


00 







CA16C 


08 


TIC 


CA21 


00 







Avoid read count of FIRSH+1 . (CA25+3 
set to Fl RSH prior to execution.) 


CA20 


12 


Read count 


CA25+3 


60 


SLI,CC 


5 


Read count of record (see CA25) 


CA21 


29 
69 


Search key equal 
Search key equal 
or high 


Contents of 
DECBKEY 


60 


CC, SLI 


KL 


Search (29) if Read, Records Unblocked, 
or Write. Search (69) if Read, Records 
Blocked. 


CA22 


08 


TIC 


CA20 


00 







CA23 


06 
05 


Read data 
Write data 


Contents of 
DECBAREA 


40 


CC 


DL 


Read prime data or write prime data 


CA24 


03 
22 


NOP 

Read sector 


IOBSECT 


60 


CC, SLI 


1 


Obtain address of record just read or 
written. No CC if read. 


CA240* 


03 
23 


Set sector 


IOBSECT 


40 


CC 


1 




CA24A* 


31 


Search ID equal 


CA25+3 


40 


CC 


5 


Search for record again 


CA24B* 


08 


TIC 


CA24A 


00 







CA24C* 


06 


Read data 




10 


SK 


DL 


Read it back 


CA24D* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Rewrite record if necessary 


CA24E* 


08 


TIC 


CA24D 


00 







CA24F* 


05 


Write data 


Contents of 
DECBAREA 


40 


CC 


DL 


CA24G* 


08 


TIC 


CA24A or 
CA240 


40 


CC 





Write check again 


CA25 




CCHHR 


If Read KU, CHHR of count is moved 
into IOBSEEK+4 (without destroying 
MBBC in IOBSEEK) when record is 
written back (CP7) 



*Write Validity Check 



Appendix B: ISAM Channel Programs 245 



CHANNEL PROGRAM 6/6W 



Searches 


an overflow chain and to read or write overflow records 






ccw 

No. 


Cc 


mmand Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA26* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for first record in overflow 
chain-IOBSEEK set from CA12+7 
(CP4) 


CA27 


08 


TIC 


CA26 


00 







CA28 


69 


Search key 
equal or high 










RKP=0 and blocked or RKP^O; read 


29 


Search key 
equal 


Contents of 
DECBKEY 


40 


CC 





Check key in overflow record. If equal, 
read (CA31) or write (CA40) record; 
otherwise, go to next one in chain 


CA29 


08 


TIC 


CA32 


00 







CA30 


08 


TIC 


CA31 
CA40 


00 







CA31 


06 


Read data 


C(DECBARE£ 

+6 


00 


#* 


DL40 


Read the overflow record (end of CP) 


CA31B 


22 


Read sector 


IOBSECT 


00 




1 


CA32 


06 


Read data 


CA34+7 


60 


CC, SLI 


10 


Read link field to next record 


CA33 


08 


TIC 


CA36 


00 









CA34 






B B C C H 


— r 

H R F 


\H 




Link field 


CA35 


CA36 


P(07) 


Seek 


CA35 


40 


CC 


6 


Seek next record in overflow chain 
(see Table 15) 


CA36B 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


NOP if CP unbroken. Set sector if stop 
at CA32 or CA30 (estimate if VLR). 


CA37 


31 


Search ID equal 


CA35+2 


40 


CC 


5 


Search for overflow record 


CA38 


08 


TIC 


CA37 


00 







CA39 


08 


TIC 


CA28 


00 







If found, check key 


CA40 


06 


Read data 


Contents 
(+6) of 
DECBAREA 


60 


CC, SLI 


10 


Read link field 


Write 

overflow 

record 


CA40A 


03 
22 


TIC 

Read sector 


CA41 
IOBSECT 


40 


CC 


1 


Position to record again 


CA40B 


23 


Set sector 


IOBSECT 


40 


CC 


1 



This channel program is preceded by a set sector— TIC if RPS is present. This prefix is located in 
the IOB extension. 
**CC if RPS 



(continued) 
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CHANNEL PROGRAM 6/6W (continued) 



Searches an overflow chain and to read or write overflow records 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA41 


31 


Search ID equal 


CA35+2 


40 


CC 


5 


Position to record again 


Write 

overflow 

record 


CA42 


08 


TIC 


CA41 


00 







CA43 


05 


Write data 


Contents (+6) 

of 

DECBAREA 


40 


cc 




Write record 


CA430* 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


Reposition to correct 


CA43A* 


31 


Search ID equal 


CA35+2 


40 


CC 


5 


Find record again 


CA43B* 


08 


TIC 


CA43A 


00 







CA43C* 


06 


Read data 




10 


SK 





Read it back 



*Write Validity Check 
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CHANNEL PROGRAM 7/7W 



Writes data records when write K is associated with Read KU 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA44* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for record to be updated— 
See CA25 (CP5) 


CA45 


08 


TIC 


CA44 




Address of next 
CP7 in queue 
(see Figure 15) 


CA46 


05 


Write data 


Contents of 
DECBAREA 


40 


CC 


DL 


Write updated record 


CA460** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC,SLI 


1 


Find record again 


CA46A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CA46B** 


08 


TIC 


CA46A 


00 







CA46C** 


06 


Read data 




10 


SK 




Read it back 



*This channel program is preceded by a prefix if -RPS is present. The prefix consists of a set sector and TIC which are 
located in the IOB extension. 
**Write Validity Check 
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CHANNEL PROGRAM 8- Fixed 


Length Records 








Searches track index and prime data track to determine first record to be bumped and place to insert it. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for (COCR) R0 


CB2 


08 


TIC 


CB1 


00 







CB3 


06 


Read data 


CB22 


60 


CC,SLI 


6 


Read R0 COCR (HHRYYT) into CB22 


CB4 


92 


Read count (MT) 


CB22+6 


60 


CC, SLI 


5 


Read count of index entry 


CB5 


69 


Search key equal 
or high 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for index entry 


CB6 


08 


TIC 


CB4 


00 







CB7 


06 


Read data 


CB10+7 


40 


CC 


10 


Read data of track index entry 


CB8 


92 


Read count (MT) 


CB24 


40 


CC 


8 


Read count of following entry 


CB8A 


06 


Read data 


CB25 


40 


CC** 


10 


Read data of next entry 


CB9 


08 


TIC 


CB12 


00 









CB10 


M 

BBCCHHRF 


Search address for prime or overflow 
data 


CB11 


CB12 


P 


Seek 


CB11 


40 


CC 


6 


Seek to prime or overflow track 
(see Table 15) 


CB16 


03 
23 


NOP 
Set sector 


CB16+5 


60 


CC,SLI 


1 


Position to beginning of track if RPS. 
Set sector to zero if RPS. 


CB17 


71 


Search ID equal 


CB11+2 


40 


CC 


5 


Search for prime record 


CB18 


08 


TIC 


CB17 


00 







CB18A 


08 


TIC 


CB19 


00 







Avoid shipping first record 


CB18B 


92 


Read count 


CB23+3 


60 


CCSILI 


5 


Get count of insert record 


CB19 


69 


Search key equal 
or high 




60 


CCSILI 





Search track for insert block 


CB20 


08 


TIC 


CB18B 


00 







CB24 




C C H H R KL DL DL 


Count of the index entry following the 
entry that meets the search conditions. 


CB25 




MBBCCHHR 


Data field of the index entry following 
the entry that meets the search 
conditions. 


CB26 




F P 









*This channel program is preceded by . . . IOB extension. 
*No CC if RECFM=F or FB, HIRPD=1 / and no shared track. 
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CHANNEL PROGRAM 8- Variable Length Records or Fixed Length Records 



Searches track index and prime data track to determine first record to be bumped and place to insert it. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for (COCR) R0 


CB2 


08 


TIC 


CB1 


00 







CB3 


06 


Read data 


CB22 


60 


CC,SLI 


6 


Read R0 COCR (HHRYYT) into CB22 


CB4 


92 


Read count (MT) 


CB22+6 • 


60 


CC/SLI 


5 


Read count of index entry 


CB5 


69 


Search key equal 
or high 


Contents of 
DECBKEY 


40 


CC 


KL 


Search for index entry 


CB6 


08 


TIC 


CB4 


00 







CB7 


06 


Read data 


CB10+7 


40 


CC 


10 


Read data of track index entry 


CBS 


92 


Read count (MT) 


CB24 


40 


CC 


8 


Read count of following entry 


CB8A 


06 


Read data 


CB25 


40 


CC** 


10 


Read data of next entry 


CB9 


08 


TIC 


CB12 


00 









CB10 


M 

BBCCHHRF 


Search address for prime or overflow 
data 


CB11 


CB12 


P 


Seek 


CB11 


40 


CC 


6 


Seek to prime or overflow track 
(see Table 15) 


CB16 


03 
23 


NOP 
Set sector 


CB16+5 


60 


CC,SLI 


1 


Position to beginning of track if RPS. 
Set sector to zero if RPS. 


CB17 


16 


Read record 





60 


CCSILI 


11 


Obtain back balance for CP12A 


CB18 


08 


TIC 


CB18B 


00 







Avoid shipping first record 


CB18A 


06 


Read data 





60 


CCSfLI 





Read in block prior to insert block 


CB18B 


92 


Read count 


CB23+3 


60 


CCSILI 


5 


Get count, Probable insert block 


CB19 


69 


Search key equal 
or high 





40 


CC 





Search for probable insert block 


CB20 


08 


TIC 


CB18A 


00 







CB24 




C C H H R KL DL DL 


Count of the index entry following the 
entry that meets the search conditions. 


CB25 




MBBCCHHR 


Data field of the index entry following 
the entry that meets the search 
conditions. 


CB26 




F P 









*This channel program is preceded by . . . IOB extension. 
**No CC if RECFM^F or FB, HIRPD=1, and no shared track. 
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CHANNEL PROGRAM 9A 



Read into work area an unblocked record occupying the position at which an insertion is to toe made 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB30 


31 


Search I D equal 


IOBSEEK+3 


40 


CC 


5 


Search for record 


CB31 


08 


TIC 


CB30 


00 







CB32 


0E 


Read key and 
data 


WA 


80 


DC 


KL 


Read record into work area 


CB33 


00 




WA+KL+16 


00 




OL ; 



CHANNEL PROGRAM 9B/9BW 



Reads an even numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number of records bumped is odd. 


CCW 
No, 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB34* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for record 


CB35 


08 


TIC 


CB34 


00 







CB36 


0D 


Write key and 
data 


Contents of j 
OECBKEY 


80 


DC 


KL 


Write new record or record pointed to j 
by DECS 


CB37 


00 




Contents of 
DECBAREA 


00 




•OL 


CB370** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SU 


1 


Search for record again 


CB37A** 


31 


Search ID equal ] 




40 


CC 


5 


CB37B** 


08 


TIC 


CB37A 


00 







CB37C** 


0E 


Read key and 
data 




10 


SK 


KL+DL 


Read it back 


CB38 


0E 


Read key and 
data 


Contents of ; 
DECBKEY 


80 


DC 


KL 


Head next record i 


CB39 


00 




Contents of i 
DECBAREA 


00 




OL 



*This channel program is preceded by a set sector— TIC if RPS is present 
* Write Validity Check 



This prefix is located in the JOB extension. 
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CHANNEL PROGRAM 9C/9CW 



Reads an odd numbered record after writing a record into the previous slot and writes back the last record of a non-EOF 
track when the number of records bumped is even. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB40* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for record 


CB41 


08 


TIC 


CB40 


00 







CB42 


0D 


Write key and 
data 


WA 


80 


DC 


KL 


Write record into work area 


CB43 


00 




WA+KL+16 


00 




DL 


CB430** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


Search for record again 


CB43A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CB43B** 


08 


TIC 


CB43A 


00 







CB43C** 


0E 


Read key and 
data 




10 


SK 


KL+DL 


Read it back 


CB44 


0E 


Read key and 
data 


WA 


80 


DC 


KL 


Read record and point DECB to that 
area 


CB45 


00 




WA+KL+16 


00 




DL 



*This channel program is preceded by a set sector— TIC if RPS is present. 
**Write Validity Check 



This prefix is located in the I OB extension. 
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CHANNEL PROGRAM 10A/10AW 



Writes a record or block to replace an EOF mark 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB46* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for last data record 


CB47 


08 


TIC 


CB46 


00 







CB48 


ID 


Write count, key, 
and data 


CB51 


80 


DC 


8 


Write record or block over EOF mark 


CB49 


00 




Contents of 
DECBKEY 


80 


DC 


KL 


CB50 


00 




WA+KL+16 


40 


CC 


DL 


CB500** 


03 
23 


NOP 
Set sector 


IOBCCW2+4 


60 


CC, SLI 


1 


Search for record again 


CB50A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CB50B** 


08 


TIC 


CB50A 


00 







CB50C** 


1E 


Read count, key, 
and data 




10 


SK 


8+KL 
+DL 


Read it back 


CB51 


C C H H R KL DL DL 


Count of record or block which 
replaces EOF 



*This channel program is preceded by a set sector-TIC if RPS is present. 

extension. 
*Write Validity Check. 



This prefix is located in the IOB 
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CHANNEL PROGRAM 10B/10BW 



Writes an EOF mark 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CB52* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for last data record 


CB53 


08 


TIC 


CB52 


00 







CB54 


1D 


Write count, 
key, and data 


CB55 


40 


cc 


8 


Write EOF mark 


C8540** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


Search for EOF mark 


CB54A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CB54B** 


08 


TIC 


CB54A 


00 







CB54C** 


1E 


Read count, 
key, and data 




10 


SK 


8 


Read it back 


CB55 


CCHRR000 


EOF mark (count field) 



*This channel program is preceded by a set sector— TIC if RPS is present. This prefix is located in the IOB extension. 
"Write Validity Check 
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CHANNEL PROGRAM 11A 



Reads an odd numbered record after writing a record into the previous slot 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CC1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for block 


CC2 


08 


TIC 


CC1 


00 







CC2A 


0E 


Read key and 
data 


WA 


80 


DC 


KL 


Read in block 


CC3 


00 




WA+KL+RL 


00 




DL 
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CHANNEL PROGRAM 11B/11BW 



Writes a re-arranged block back onto the prime data track 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CC4* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for insertion point 


CC5 


08 


TIC 


CC4 


00 







CC6 


0D 


Write key and 
data 


WA 


40 


cc 


KL+DL 


Write block 


CC60* 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC,SLI 


1 


Search for block again 


CC6A* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CC6B* 


08 


TIC 


CC6A 


00 







CC6C* 


0E 


Read key and 
data 




10 


SK 


KL+DL 


Read it back 



*This channel program is preceded by a set sector -TIC if RPS is present. This prefix is located in the IOB extension. 
**Write Validity Check 
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CHANNEL PROGRAM 12A 



Reads data records following slot in which new record is to be inserted. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CD1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for block prior to insert 


CD2 


08 


TIC 


CD1 


00 







CD3 


0E 


Read key and 
data 


WA+iO 


60 


CC,SLI 


KL+DL 


Read first prime data block 


CD4 


1E 


Read count, key, 
and data 


WA+10+ 
KL+DL 


60 


CC, SLI 


DL 


Read successive prime data record. 
There is one copy of CD4 for each 
record on a prime data track; the CC 
bit is set off in the appropriate copy 
depending on how many blocks are to 
be read. 
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CHANNEL PROGRAM 12B 



Writes back prime data records 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CE1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for block prior to insert 


CE2 


08 


TIC 


CE1 


00 







CE3 


1D 


Write count, key, 
and data 


WA+2 


80 


DC 


8 


Write prime data records. There is one 
set of CE6-CE7 for each record on a 
prime data track; the CC bit is set off 
in the appropriate copy of CE7 
depending on how many records are 
written back. 


CE4 


00 




DECBKEY 


80 


DC 


KL 


CE5 


00 




DECBAREA 


40 


CC 


DL 


CE6 


1D 


Write count, key, 
and data 


WA+KL+ 
DL+10 


80 


DC 


8 


CE7 


00 




WA+10 


40 


CC 


KL+DL 
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CHANNEL PROGRAM 12C/12CW 



Writes a new record which has replaced a deleted record 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CL1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for deleted record 


CL2 


08 


TIC 


CL1 


00 







CL3 


05 


Write data 


Contents of 
DECBAREA 


40 


CC 


DL 


Replace deleted record 


CL30** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


Search for record again 


CL3A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 





CL3B** 


08 


TIC 


CL3A 


00 







CL3C** 


06 


Read data 




10 


SK 


DL 


Read it back 



*This channel program is preceded by a set sector -TIC if RPS is present. This prefix is located in the 10 B extension. 
**Write Validity Check 
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CHANNEL PROGRAM 12AV 



Reads variable length data records or blocks following point at which new record is to be inserted 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CDO 


CCHHR008 
YY R 


Capacity record for prime data track 


CDOA 


CDOAf 


31 


Search ID equal 


CDO 


40 


CC 


5 


Search for RO (track capacity record) 


CD0A2 


08 


TIC 


CD0A1 


00 







CDOB 


06 


Read data 


CDOA 


60 


CC, SLI 


3 


Read capacity record 


CDOC 


08 


TIC 


CDOD or 
CD3 


00 







TIC to CD3 if a full track is to be read 
or prior block full 


CDOD 


03 
23 


NOP 
Set sector 


IOBSECT+1 


60 


CC,SLI 


1 


Search for record prior to insert point 


CD1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CD2 


08 


TIC 


CD1 


00 







CD2A 


08 


TIC 


CD2B or 
CD3 


00 







TIC to CD2B if this is first execution of 
channel program** 


CD2B 


OE 


Read key and 
data 


WA 


60 


CC, SLI 


KL 


Read key of record prior to insert point 


CD3 


06 


Read data 


WA+KL+CF 
+LRECL 


60 


CC,SLI 


DL 


Read data portion of record. There is 
one copy of CD3 for each record which 
can be read in a single execution.* 



*This channel program is preceded by a set sector— TIC if RPS is present. This prefix is located in the IOB extension. 

*With unblocked records and a large HSRPD, the Write KN work area (DCBMSWA) may not be large enough to contain 
all records past the insertion point. CP 12AV will then be executed more than once. "ISAM Buffer and Work Area 
Requirements" in Data Management Services tells how to determine the best size for the work area. 
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CHANNEL PROGRAM 12BV 



Writes back variable length prime data records or blocks 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CEO* 


31 


Search ID equal 


CDO 


40 


CC 


5 


Search for RO 


CEOA 


08 


TIC 


CEO 


00 







CEOB 


05 


Write data 


CDOA 


60 


CC, SLI 


3 


Write updated track capacity record 


CEOC 


03 
23 


NOP 
Set sector 


IOBSECT+1 


60 


CC, SLI 


1 


Search for record prior to insert point 


CE1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CE2 


08 


TIC 


CE1 


00 







CE3 


08 


TIC 


CE4 


00 







TIC to CE4 to write partial track 


CE3A 


39 


Search home 
address 


CDO 


40 


CC 


4 


Search for start of track 


CE3B 


08 


TIC 


CE3A 


00 







CE3C 


15 


Write R0 


CDO 


60 


CC, SLI 


11 


Write updated track capacity record 
again 


CE4 


1D 


Write count, 
key, and data 


WA+KL 


80 


DC 


8 


Write prime data record. The number of 
sets of CE4-CE6 equals DCBHI RPD; 
the CC bit is set off in the appropriate 
copy of CE6 depending on how many 
records are written back 


CE5 


00 




WA+KL+CF 

+(DL-LRECL) 

+RKP 


80 


DC 


KL 


CE6 


00 




WA+KL+CF 


40 


CC 


DL 



*This channel program is preceded by a set sector-TIC if RPS is present. The prefix is located in the I OB extension. 
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CHANNEL PROGRAM 13A 



Reads all blocks from the track following and including the slot into which a record is to be inserted 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CF1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for first record to be read 


CF2 


08 


TIC 


CF1 


00 







CF3 


06 


Read data 


Data address 


00 




DL 


Read first prime data block 


CF4 


12 


Read count 


WA 


40 


CC 


8 


Read successive prime data block. There 
is one copy of CF4-CF5 for each block 
on a prime data track; the CC bit is set 
off in the appropriate copy of CF5 
depending on how many blocks are to 
be read. 


CF5 


06 


Read data 


Data address 


40 


CC 


DL 
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CHANNEL PROGRAM 13B 



Writes back the rearranged blocks read by CP1 3 A 


ccw 

No. 


Command Code 


Address 


Flags 


Count ; 


Comments \ 


Hex 


Description 


Hex I 


Description 


CG1 


31 


Search ID equal 


10BSEEK+3 : 


40 [ 


CC 


5 


Search for record before insertion point -j 


CG2 


08 


TIC 


CG1 


00 




• 


CG3 


1D 


Write count, 
key, and data 


WA l 


80 


DC j 


8 


Write back prime data block, There is i 
one copy of CG3-CG4-CGS for each 
block on a prime data track; the CC bit \ 
is set off in the appropriate copy of i 
CF5 depending on how many blocks 
are to be written. 


GG4 


00 




Key address 


80 


DC 


KL 


CG5 


00 




Data address 


00 I 




DL ; 
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CHANNEL PROGRAM 13C/13CW 



Writes back a block if the insertion is a record with a key identical to that of a record, which although logically deleted, 
is still physically present within the block. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CL5* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for block insertion point 


CL6 


08 


TIC 


CL5 


00 







CL7 


05 


Write data 


Data address 


40 


CC 


DL 


Replace block 


CL70** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 


Find record again 


CL7A** 


31 


Search ID equal 


IOBSEEK+3 


40 




5 


CL7B** 


08 


TIC 


CL7A 


00 







CL7C** 


06 


Read data 




10 


SK 


DL 


Read it back 



*This channel program is preceded by a set sector-TIC if RPS is present. The prefix is located in the IOB extension. 
** Write Validity Check 
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CHANNEL PROGRAM 14/14W - Fixed Length Records 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN Asynchronous 
Codes in Appendix B for descriptions of the Setups of this channel program.) 


Part H-RewritesCOCR and track index * 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex Description 


cm** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for COCR Entry point for Setups 
1-5 (add to cylinder overflow) 


CH2 


08 


TIC 


CH1 


00 






CH3 


05 


Write data 


CB22 


60 


CC,SLI 


6 


Write updated COCR from CP8 


CH3A1** 


.* 23 
03 


Set sector 
NOP 


CH3A1+5 


60 


CC,SLI 


1 


Set sector to zero if RPS 


CH3A*** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for COCR again 


CH3B*** 


08 


TIC 


CH3A 


00 







CH3C*** 


06 


Read data 




70 


CC,SK,SLI 




Read it back 


CH4 


08 


TIC 


CH5,CH9, 
CH55,CH14, 
or CH8D 


00 







TIC to CH5 for Setup 1 ; CH9 for Setups 2, 3 
5;CH14forSetup4 


CH5 


03 
23 


NOP 

Set sector 
Seek head 


IOBSECT 
CI5 


60 


CC, SLI 


6 


Search for prime index intry; entry point for 
Setups 1-2 (add to independent overflow 


CH55 


31 


Search ID equal 


CB22+6 


40 


CC 


5 


CH6 


08 


TIC 


CH55 


00 







CH7 


0D 


Write key and data 


Contents of 
DECBKEY 


80 


DC 





Write new hi-key prime data chain 


CH8 


00 




CB10+7 


40 


CC 


10 


Write prime index entry 


CH80*** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC,SLI 


1 


Search for entry again 


CH8A*** 


31 


Search ID equal 


CB22+6 


40 


CC 


5 


CH8B*** 


08 


TIC 


CH8A 


00 







CH8C*** 


0E 


Read key and data 




50 


CC,SK 





Read it back 


CH8D 


31 


Search ID equal 


CB24 


40 


CC 


5 


Search for overflow track index entry 


CH8E 


08 


TIC 


CH8D 


00 







CH8F 


05 


Write data 


CB25 


10 


SK 


10 




CH8G 


08 


TIC 


CH13+8 


00 










*CP14 is executed in two parts only when the work area is provideding the user. 
**This channel program is preceded by a set sector— TIC if RPS is present. This prefix is located in the IOB extension. 
***Write Validity Check 



(Continued) 
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CHANNEL PROGRAM 14/14W - Fixed Length Records (continued) 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN Asynchronous 
Codes in Appendix B for descriptions of the Setups of this channel program.) 


Part 11 -Rewrites COCR and track index ** 


ccw i 

No. i 


Command Code 


Address 


Flags 


Count 


Comments 


Hex \ 


Description 


Hex 


Description 


CH9 


03 

23 ! 


NOP 
Set sector 


IOBSECT+1 


60 


CC, SL1 


1 


Search overflow track index entry 


CH95 


31 ; 


Search ID equal 


CB24 


40 


CC 


5 


CH10 


08 


TIC 


CH95 


00 







CH12 


OD 


Write key and data 




80 


DC 





Write new overflow key-data chain 


OH 13 


05 


Write data 


CB25 


40 


CC 


10 


Write overflow index entry 


; CHI 30* 


03 
23 


NOP 
Set sector 


IOBSECT+1 


60 


CC,SLI 


1 


Search for entry again 


CH13A* 


31 ; 


Search ID equal 


CB24 


40 


CC 


5 


CM13B* 


08 


TIC 


CH13A 


00 







CH13C* 


0E 


Read key and data | 




50 


CC, SK 


KL+DL 


Read it back 


i CH14 


P 


Seek 


CH23+1 


40 


CC 




Seek new overflow record (seek is set by 
appendage routine). For user work area 
this CCW is a no Op. 


Part I— Writes overflow record.** 


CH150 ; 


03 
23 


NOP 
Set sector 


10BSECT+2 


60 


CC,SL1 


1 


Entry point for Setup 6 


iCH15 


31 


Search ID equal 


CH23+3 


40 


CC 


5 


Search for overflow slot 


CH15A 


08 


TIC 


CHI 5 


00 







CH16 


10 


Write count, key, 
and data 


CH24 


80 


DC 


8 


Write new overflow record 


CH17 


00 




Contents of 
DECBKEY 


80 


DC 


KL 


cms 


00 




Contents of 
DEC BARE A 


40 


CC 


DL 


OH 180* 


03 
23 


NOP 
Set sector 


IOBSECT+2 


60 


CC, SLI 


1 


Search for new overflow record again 


CH18A* 


31 


Search ID equal 


CH23+3 


40 


CC 


5 


CH18B* 


08 


TIC 


CH18A 


00 







CH18C* 


1€ 


Read count, key 




10 


SK 





Read it back. Termination for Setups 1, 2, 
5,6 


CHT9 


P 


Seek 


C111+1 


40 


CC 


6 


Seek previous overflow record 



* Write Validity Check 
**CP14 is executed in two parts only when the work area is provided together. 
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(continued) 



CHANNEL PROGRAM 14/1 4W - Fixed Length Records (continued) 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BtSAM Write KM Asynchronous 
Codes in Appendix B for descriptions of the Setups of this channel program.) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CH200 


03 
23 


NOP 
Set sector 


IOBSECT+3 


60 


CCSLl 


1 


Search for record 


CH20 


31 


Search ID equal 


CJ11+3 


40 


CC 


5 


CH21 


08 


TIC 


CH20 


00 







CH22 


05 


Write data 


WA 


40 


CC 





Write back previous overflow record 


CH220* 


03 
23 


NOP 
Set sector 


IOBSECT+3 


60 


CC,SLI 


1 


Search for previous overflow record again 


CH22A* 


31 


Search ID equal 


CJ11+3 


40 


CC 


5 


CH22B* 


08 


TIC 


CH22A 


00 







CH22C* 


06 


Read data 




10 


SK 


DL 


Read it back. Termination for Setups 3-4. 


CH23 


MBBCCHHR 


Search address of new overflow record 


CH24 






C C H H R KL 


. DL DL 




Count of new overflow 



*Write Validity Check 
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CHANNEL PROGRAM 14/14W-Variab|e Length Records 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN 
Asynchronous Codes in Appendix B for descriptions of the Setups of this channel program.) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


Part ll-Rewrites COCR and Track Index 


cm* 


31 


Search ID equal 


CH23+3 


40 


CC 


5 


Search for COCR Entry point for Setups 
1-5 (add to cylinder overflow) 


CH2 


08 


TIC 


CH1 


00 






CH3 


05 


Write data 


CB22 


60 


CC,SLI 


6 


Write updated COCR from CP8 


CH3A1* 


23 
03 


Set sector 
NOP 


CHA1+5 


60 


CC, SLI 


1 


Set sector to zero if RPS 


CH3A** 


31 


Search ID equal 


CH23+3 


40 


CC 


5 


Search for COCR again 


CH3B** 


08 


TIC 


CH3A 


00 







CH3C** 


06 


Read data 




70 


CC, SK, SLI 




Read it back 


CH4 


08 


TIC 


CH50, CH5, 

CH3F0,CH3G> 

orCH14 


00 
• 







TIC to CH5 for Setup 1 ; CH8G for 
Setups 2, 3, 5; CH14 for Setup 4 


CH5 


03 
23 


NOP 
Set sector 

Seekhead 


IOBSECT 
CI5 


60 


CC,SLI 


6 


Search for prime index entry; Entry 
point for Setups 1-2 (add to 
independent overflow) 


CH55 


31 


Search ID equal 


CB22-6 


40 


CC 


5 


CH6 


08 


TIC 


CH55 


00 







CH7 


0D 


Write key and 
data 


Contents of 
DECBKEY 


80 


DC 





Write new hi-key prime data chain 


CH8 


00 




CB10+7 


40 


CC 


10 


Write prime index entry 


CH30** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC,SLI 


1 


Search for entry again 


CH8A** 


31 


Search ID equal 


CB22+6 


40 


CC 


5 


CH8B** 


08 


TIC 


CH8A 


00 







CH8C** 


0E 


Read key and 
data 




50 


CC,SK 





Read it back 


CH8D 


08 


TIC 


CH8G5 


00 









CH8F 














This CCW not used 



*This channel program is preceded by a prefix if RPS 
located in the IOB extension. 
**Write Validity Check 
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is present. The prefix consists of a set sector and TIC, which are 

(continued) 



CHANNEL PROGRAM 1 4/1 4W- Variable Length Records (continued) 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN 
Asynchronous Codes in Appendix B for descriptions of the Setups of this channel program.) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


Part ll-Rewrites COCR and Track Index 


CH8G 


23 
03 


Set sector 
NOP 


IOBCCW2+5 


60 


CC,SLI 


1 


Search overflow track index entry 


CH8G5 


31 


Search ID equal 


CB24 


40 


CC 


5 


CH9 


08 


TIC 


CH8G5 


00 







CH10 


08 


TIC 


CH12orCH13 


00 







TIC to CH 13 to write data only of 
overflow record 


CH12 


0D 


Write key and data 




80 


DC 





Write new overflow key-data chain 


CH13 


05 


Write data 


CB25 


40 


CC 


10 


Write overflow index entry 


CH130* 


03 
23 


NOP 
Set sector 


IOBSECT+1 


60 


CC,SLI 


1 


Search for entry again 


CH13A* 


31 


Search ID equal 


CB24 


40 


CC 


5 


CH13B* 


08 


TIC 


CH13A 


00 







CH13C* 


0E 


Read key and data 




50 


CC,SK 


KL+10 


Read it back 


CH14 


03 


NOP 




20 


SLI 


1 





*Write Validity Check 



(continued) 
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CHANNEL PROGRAM 1 4/ 14W- Variable Length Records (continued) 



Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN 
I Asynchronous Codes in Appendix B for descriptions of the Setups of this channel program.) 


i ccw 

!■ No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


| Description 


Hex 


Description 


Part I — W r ites Overflow R ecord 


; CHI 50 


; 03 

23 


NOP 
Set sector 


; IOBSECT+2 




CC, SLI 






cms 


I 31 


| Search ID equal 


: CH23+3 


S 40 


I CC 


5 


Search for overflow slot 


CH15A 


08 


1 TIC 


CH15 


i oo 







|CH16 


ID 


; Write count, key, 
i and data 


. CH24 


80 


DC 


i 8 


Write new overflow record 


■CH17 


00 




Contents of 
DECBKEY 


80 


DC 


KL 


CH18 


00 




Contents of 
DECBAREA 


40 


CC 


DL 


CHT80* 


03 
23 


NOP 
1 Set sector 


IOBSECT+2 


60 


CC, SLI 


1 


Search for new overflow record again 


CH1;8A* 


31 


Search ID equal 


CH23+3 


40 


CC 


5 


CH18B* 


08 


TIC 


CH18A 


00 







CH18C* 


IE 


Read count, key 
and data 




10 


SK 





Read it back. Termination for Setups 
1,2,5,6 


CH19 


P 


Seek 


CJ11+T 
SECT+3 


40 


CC 


6 


Seek previous overflow record 


CH200 


03 
23 


NOP 
Set sector 


IOBCCW2+7 


60 


CC,SLI 


1 


Search for record 


CH20 


31 


Search ID equal 


CJ11+3 


40 


CC 


5 


CH21 


08 


TIC 


CH20 


00 







CH22 


05 


; Write data 


WA 


40 


CC 





Write back previous overflow record 


CH220* 


03 
23 


NOP 
Set sector 


lOBSECT+3 


60 


CC, SLI 


1 


Search for previous overflow record 
again 


CH22A* 


31 


Search ID equal 


CJ11+3 


40 


CC 


5 


CH22B* 


08 


TIC 


CH22A 


00 







CH22C* 


06 


Read data 




10 


SK 


DL 


Read it back. Termination for Setups 
3-4 



* Write Validity Check 



(continued) 
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CHANNEL PROG RAMI 4/1 4W- Variable Length Records (continued) 



CH23 


MBBCCHHR 


Search address of new overflow record 


Writes some combination of COCR, normal and overflow track index entries, and overflow records. (See BISAM Write KN 
Asynchronous Codes in Appendix B for descriptions of the Setups of this channel program.) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CH24 


C C H H R KL DL DL 


Count of new overflow 


EOF Extension 


CH25 


31 


Search ID equal 


CH31+3 


40 


CC 


5 


Search for last overflow record 


CH26 


08 


TIC 


CH25 


00 







CH27 


ID 


Write count, key, 
and data 


CH32 


40 


CC 


8 


Write EOF mark 


CH280* 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CCSLI 


1 


Search for record again 


CH28* 


31 


Search ID equal 


CH31+3 


40 


CC 


5 


CH29* 


08 


TIC 


CH28 


00 







CH30* 


1E 


Read count, key, 
and data 




30 


SK,SLI 


8 


Read it back 


CH31 


MBBCCHHR 


Address of last overflow record 


CH32 


CCHHRKKD 


EOF mark 



*Write Validity Check 
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CHANNEL PROGRAM 15 



Reads in the cylinder overflow control record and the overflow track index entry when a new record is added to the end 
of a data set 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CM* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for COCR 


CI1A 


08 


TIC 


CI1 


00 







CUB 


06 


Read data 


CB22 


60 


CC, SLI 


6 


Read R0 (COCR) into CP8 


cue 


1B 


Seek head 


CI5 


40 


CC 


6 


Find last active index track 


cud 


03 
23 


NOP 
Set sector 


IOBSECT+1 


60 


CC,SLI 


1 


Search for last active normal track 
index entry 


cue 


31 


Search ID equal 


CI5+2 


40 


CC 


5 


CI2 


08 


TIC 


CUE 


00 







CI3 


92 


Read count 


CB24 


40 


CC 


8 


Read count of last overflow entry 
into CP8 


CI4 


06 


Read data 


CB25 


00 




10 


Read data of last overflow entry 
into CP8 


CI5 


BBCCHHR- 


ID of last active normal track index 
entry 



*This channel program preceded by a set sector-TIC if RPS is present. This prefix is located in the IOB extension. 
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CHANNEL PROGRAM 16 



Searches an overflow chain for (1 ) the record that logically precedes or is equal to the new record to be added or 
(2) the last record in the chain. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


cjr* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for next overflow record in chain 


CJ2 


08 


TIC 


CJ1 


00 







CJ3 


69 


Search key 
equal or high 


Contents of 
DECBKEY 


40 


CC 


KL 


Is this the desired record? 


CJ4 


08 


TIC 


CJ10 


00 







No 


CJ4A 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC, SLI 


1 




CJ5 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for overflow record 


CJ6 


08 


TIC 


CJ5 


00 







CJ7 


29 


Search key 
equal 


Contents of 
DECBKEY 


40 


CC 





Test if key equals user key 


CJ8 


03 


NOP 





20 


SLI 


1 


No, stop here 


CJ9 


06 


Read data 


WA 


20 


SLI 


11 


Yes, read 1 1 bytes of equal key record 


CJ10 


06 


Read data 


WA* 


oot 




DL 

+10*** 


Read next overflow record in chain 


CJ11 


MBBCCHHR 


Address of record in chain before insert 

_ 



*The address is WA+20 for variable length records 
**This channel program preceded by a prefix if RPS is present. The prefix consists of a set sector and TIC which are 
located in the IOB extension. 
***DL+14if VLR 
tSLI if VLR 
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CHANNEL PROGRAM 17/17W 



Changes the key in a normal or overflow track index entry or in a higher level index entry 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CK1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for last entry in index 


CK2 


08 


TIC 


CK1 


00 









CK3 


06 


Read data 


CK8 


40 


cc 


10 


Read data of last entry 


CK30 


03 
23 


NOP 
Set sector 


IOBSECT 


80 


CC, SLI 


1 


Search for entry again 


CK4 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CK5 


08 


TIC 


CK4 


00 









CK6 


0D 


Write key 
and data 


Contents of 
DECBKEY 


80 


DC 


KL 


Write new high key and rewrite data 
of entry 


CK7 


00 




CK8 


40 


CC 


10 


CK70** 


03 
23 


NOP 
Set sector 


IOBSECT 


60 


CC,SLI 


1 


Search for updated entry 


CK7A** 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CK7B** 


08 


TIC 


CK7A 


00 







CK7C** 


0E 


Read key and data 




10 


SK 


KL+10 


Read it back 


CK8 


MBBCCHHR 


Data of index entry 


CK9 






F P 










*Write Validity Check 

**This channel program preceded by a prefix if RPS is present. The prefix consists of a set sector and TIC which are located 
in the I OB extension. 
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CHANNEL PROGRAM 18 



Write Prime Data Blocks-Load Mode, ISAM. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CLO 


23 


Set sector 


ISLRPSSS 


40 


CC 


1 


Position for first record 


CL1j 


31 


Search ID equal 


IOBSEEK+3 
CQ1,CQ14A 


40 


CC 


5 


Search for count field of the block pre- 
ceding the block to be written next 


CL2j 


08 


TIC 


CL1j 


00 







The count field contains the address of 
the write check segment of this channel 
program (CL1 2 ) 


CL3 1 


08 


TIC 


CL4orCL6 


00 







Transfer to the first CCW of the group 
of write CCWs to be executed next. 
The count field contains the address of 
the last read CCW in the write check 
segment of this channel program +8. 


One copy of CL4 for each buffer. CL4 is used to write blocks for fixed length, unblocked record formats where R KP = 
because count, key, and data are contiguous. 


CL43 


1D 


Write count, 
key data 


Buffer N 


40 


CC 


8+KL 
+DL 


Write prime data when RECFM=FU, 
RKP=U 


One copy of CL6, CL7, CL8 for each buffer. CL6, CL7, CL8 are used to write blocks for fixed length, unblocked formats 
where RKP^O, fixed length, blocked formats because count, key, and data are not contiguous. 


CL69 


1D 


Write count 


Buffer N 


80 


DC 


8 


Write prime data records when 
RECFM = FU; RKP^O or RECFM=FB; 
RKP-N/A 


CL7 


00 


Write key 


Buffer 
N+8+RKP 


80 


DC 


KL 


CL8 


00 


Data 


Buffer 
N+8 


40 


CC# 


DL 


The next CCW follows each copy of CL4 or CL8 except the last. It transfers to the beginning of the Write Validity Check 
segment of this channel program (CL1 2 ), if this is the last of the current group of write CCWS; otherwise it transfers to 
the next copy of CL4 or CL6. This CCW is omitted if Write Validity Check is not specified. 




08 


TIC 


CL1 2 , 

CL4 n,or 
CL6 n 


00 







The count field of this CCW contains 
the address of the next sequential 
copy of CL4 or CL6 


The next CCW (CL5) follows the last copy of CL4 or CL8. It transfers to the beginning of the Write Validity Check 
segment of this channel program (CL1 ), if this is the last of the current group of write CCWs ; otherwise it transfers to 
the first copy of CL4 or CL6. If Write Validity Check is not specified, this CCW points to the first copy of CL4 or CL6. 


CL5 


08 


TIC 


CL1 2 ,CL0 2 , 

CL4 1# 

orCL6j 


00 







The count field of this CCW contains 
the address of CL4 2 or CL6j 
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CHANNEL PROGRAM 18 (continued) 



Write Prime Data Blocks-Load Mode, ISAM. 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CL1 2 


23 
03 


Set Sector 
NOP 


ISLRPSSS 


60 


CC, SLI 


1 


Position for first record 


CL1 2 * 


31 


Search ID equal 


IOBSEEK+3 
or Buffer N 


40 


CC 


5 


Search for the count field of block 
preceding the first block of the group 
last written; Buffer N is the address of 
the count field if this is a shared track. 


CL2 2 * 


08 


TIC 


CL1 2 


00 







The following CCW (CL3 2 ) transfers to the first read CCW to be executed. 


CL3 2 * 


08 


TIC 


CL9 


00 









One copy of CL9 is generated for each buffer. Each copy of CL9 is command chained except the last. CL3 transfers to 
the copy of CL9 whose position in relation to the last copy of CL9 is equal to the number of blocks written by this 
execution of channel program 18. 


CL9* 


1E 


Read count, 
key, and data 




50 


CC, SK# 








#Command chain is off if this is the last read or write of a group to be executed. 

*Write Validity Check 

3 For shared (preformatted) tracks. The count field is not written. 
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CHANNEL PROGRAM 19/91 



CP1 9— Preformat shared track and/or write cylinder overflow control record (COCR) 
CP91 — Fill unused index tracks with inactive and dummy (end of index) entries 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CM0#t 


23 


Set sector 


CMO+5 


40 


CC 


1 


Position for COCR 


CM1# 


31 


Search ID equal 


DCBLPDA 


40 


CC 


5 


When CP is being generated, DCBLPDA 
contains the DAD AD of the record 
preceding the first prime data record 


CM2# 


08 


TIC 


CM1 


00 






CM3# 


05 


Write data 


Area Z 


60 


CC, SLI 


8 


Write COCR 


CM4# 


1B 


Seek head 


DCBLPDA 
orCM27+1 


40 


CC 


6 


DCBLPDA if COCR and DCBFIRSH 
are same track, otherwise CM27+1 


CM40 


23 
03 


Set sector 
NOP 


ISLRPSSS+1 


60 


CC, SLI 


1 


Position to index entries 


CM5 


31 


Search ID equal 


DCBLPDA 
or CM27+3 


40 


CC 


5 


DCBLPDA if COCR and DCBFIRSH 
are same track, otherwise CM27+3 


CM6 


08 


TIC 


CM5 


00 






CM7 


1D 


Write count r key, 
data 


Area Z+6 


80 


DC 


8 


Write inactive track index entries 


CM8 


00 




Buffer 


40 


CC 


KL+10 


CM9 


1D 


Write count,key, 
data 


Area Z+14 


80 


DC 


8 


CM10 


00 




Buffer 


40 


CC 


KL+10 


CM11 


1D 


Write count, 
key, data 


Area Z+22 


80 


DC 


8 


CM12 


00 




Buffer 


40 


CC 


KL+10 


CM13 


1D 


Write count, 
key, data 


Area Z+30 


80 


DC 


8 


CM14 


00 




Buffer 


40 


CC 


KL+10 


CM15 


1D 


Write count, 
key, data 


Area Z+38 


80 


DC 


8 


CM16 


00 




Buffer 


40 


CC 


KL+10 


CM17 


1D 


Write count, 
key, data 


Area Z+46 


80 


DC 


8 



#Cy Under Overflow Control Record (COCR) to be written. With variable length records, 

CP19 consists of CM1 through CM4 only because the track index is not preformatted. 
tSet sector to zero if RPS. 



(continued) 



Appendix B: ISAM Channel Programs 277 



CHANNEL PROGRAM 19/91 (continued) 



CP 19— Preformat shared track and/or write cylinder overflow control record (COCR) 
CP91— Fill unused index tracks with inactive and dummy (end of index) entries 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CM21 


1D 


Write count, 
key, data 


Area Z+62 


80 


DC 


8 




CM22 


00 




Buffer 


40 


CC 


KL+10 


CM23 


1D 


Write count, 
key, data 


Area Z+70 


80 


DC 


8 


CM24 


00 




Buffer 


40 


CC 


KL+10 


CM25 


1D 


Write count, 
key, data 


Area Z+78 


80 


DC 


8 


CM26 


00 




Buffer 


00 




KL+10 


CM27 


MBBCCHHR 


If the COCR and the Shared Track are 
not the same track; this field is used to 
store the Seek and Search arguments 
for CM4 and CM5. 


CM27 


08 


TIC 


CM5 


00 







This CCW resides in the 
skeleton only and replaces CM1 
when COCR is not to be written, 
written. 


CP91 
only 


CM28 


0D 


Write key and data 


Buffer 


00 







This CCW can replace CM8 


CM29 


1D 


Write count, 
key, and data 


Area Z+6 


80 


DC 


8 


This CCW can replace CM7 
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CHANNEL PROGRAM 20-Fixed Length Records 



Writes Track Index Entry(s) 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


The following segment of CP20 is executed for fixed length record formats when shared tracks are in effect. CP19 has 
Preformatted the track index by writing a COUNT field for each entry. 


COO 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position for normal track index entry 


CQ1 


31 


Search ID equal 


ISLIOBA 


40 


CC 


5 


Search for normal track index entry to 
be written next 


CQ2 


08 


TIC 


CQ1 


00 







CQ3 


0D 


Write key, data 


Buffer N+8 
+RKP 


80 


DC 


KL 


Write normal track index entry 


CQ4 


00 




Area Y+26 


40 


CC 


10 


CQ5 


B1 


Search ID equal 
(MT) 


Area Y+36 


40 


CC 


5 


Search for track to write overflow track 
index entry 


CQ6 


08 


TIC 


CQ5 


00 







CQ7 


0D 


Write key, data 


Buffer N+8 
+RKP 


80 


DC 


KL 


Write overflow track index entry 


CQ8 


00 




Area Y+44 


40 


CC 


10 


CQ9 


08 


TIC 


CQ10,CQT1, 
orCQ13 


00 







Transfer to write dummy track index 
entry (CQ10) or to CQT1 if Write 
Validity Check specified, or transfer to 
CQ13 if CP18 (write prime data) is to 
be executed next 


CQ10 


B1 


Search ID equal 
(MT) 


Area Y+54 


40 


CC 


5 


Search for dummy track entry to be 
written next 


CQ11 


08 


TIC 


CQ10 


00 







CQ12 


0D 


Write key, data 


Area Y+62 


40 


CC 


KL+10 


Write key, data fields of dummy track 
index entry 


CQ13 


1B 


Seek HH 


ISLIOBA+33 


40 


CC 


6 




CQ14 


08 


TIC 


CQT1orCL1 


20 


SLI 


5 


Transfer to CQT1 if Write Validity Check 
specified, or to CL1 (CP18); this CCW 
is a NOP during Close processing. 


CQ14A 


MB BCCH H R 


Seek address for CP 18 



(continued) 
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CHANNEL PROGRAM 20-Fixed Length Records (continued) 



Writes Track Index Entry(s) 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQ14A 


MBBCCHHR 


Seek address for CP18 


CQ14B 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position to next index entry 


CQ15 


31 


Search ID equal 


Area Y+18 
(R = R-1) 


40 


CC 




Index entry to be written next 


CQ16 


08 


TIC 


CQ15 


00 









CQ17 


1D 


Write count, 
key, data 


Area Y+18 


80 


DC 


8 


Write count, key, and data fields of 
normal track index entry 
ISLKEYAD points to key 


CQ18 


00 




Buffer N+8 
+RKP 


80 


DC 


KL 


CQ19 


00 




Area Y+26 


40 


CC 


10 


CQ20 


08 


TIC 


CQ21 orCQ27 


00 







Transfer to CQ21 if normal and overflow 
entries are on the same track, or to 
CQ27 if normal and overflow entries 
are on different tracks 


CQ21 


1D 


Write count, 
key, data 


Area Y+36 


80 


DC 


8 


Write overflow index entry 
ISLKEYAD points to key 


CQ22 


00 




Buffer N+8 


80 


DC 


KL 


CQ23 


00 




Area Y+44 


40 


CC 


10 


CQ24 


08 


TIC 


CQT1 or 
CQ13or 
CQ25 or 
CQ27 


00 







Transfer to CQT1 if Write Validity 
Check is specified, or to CQ13 if 
CP18 is to be executed next, or to 
CQ25 if overflow and dummy track 
index entries are on the same tracks, or 
to CQ27 if overflow and dummy track 
index entries are on different tracks 


CQ25 


1D 


Write count, 
key, data 


Area Y+54 


40 


CC 


8+KL+10 


Write count, key, and data of dummy of 
index entry 


CQ26 


08 


TIC 


CQT1 
or CQ13 


00 







Transfer to CQT1 if Write Validity 
Check is specified, or to CQ13 if 
CP18 is to be executed next 


CQ27 


B1 


Search ID equal 


CQ30+3 


40 


CC 


5 


Index entries are split across tracks. 
Search for next physical track 


CQ28 


08 


TIC 


CQ27 


00 








(continued) 
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CHANNEL PROGRAM 20-Fixed Length Records (continued) 



Writes Track Index Entry(s) 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQ29 


08 


TIC 


CQ21 or CQ25 


00 







Transfer to write overflow track index 
entry (CQ21 ), or to write dummy track 
index entry (CQ25) 


CQ30 


MBBCCHHR 


Search argument for next track, if index 
entries are split across track boundary 


CQTO* 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position for track index 


CQT1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for track index entry again 


CQT2* 


08 


TIC 


CQT1 


00 







CQT3* 


08 


TIC 


CQTn 


00 







n=6— dummy index entry only 
n=5— normal and overflow index entries 
n=4— normal, overflow, and dummy 
index entries 


CQT4* 


9E 


Read count, key, 
and data (MT) 




50 


CC, SK 





Read back track index entry(s) 


CQT5* 


9E 


Read count, key, 
and data (MT) 




50 


CC, SK 





CQT6* 


9E 


Read count, key, 
and data 




50 


CC, SK 





CQT7* 


08 


TIC 


CQ13 


00 










"Write Validity Check 
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CHANNEL PROGRAM 20-Variable Length Records 



Writes Track Index Entry(s) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQOt 


23 


Set sector 


CQO+5 


40 


CC 


1 


Position for R0 


CQ1 


31 


Search ID equal 


CQ5+3 


40 


CC 


5 


Search for R0 on current prime track 


CQ2 


08 


TIC 


CQ1 


00 







CQ3 


05 


Write data 


CQ7 


40 


CC 


3 


Write track capacity record 


CQ4 


08 


TIC 


CL1 


00 







TIC to CP18 to write prime data 


CQ5 


LL-CCHHR 


Maximum record length (LL) and R0 
ID for current prime track 


CQ6 




This CCW not used 


CQ7 


YYR 


Data of track capacity record (R0) 


CQ8 




This CCW not used 


CQ9 


YYR 


Running capacity 


CQ10 




This CCW not used 


CQ11 


PPLL 


PP-pointer to last used CCW in CP18, 
LL— length of current record 


CQ12 




This CCW not used 


CQ13 


1B 


Seek HH 


ISLIOBA 


40 


CC 


6 




CQ14 


08 


TIC 


CQT1 orCL1 


20 


SLI 


5 


Transfer to CQT1 if Write Validity 
Check specified, or to CL1 (CP18); 
this CCW is a NOP during close 
processing 


CQ14A 


MBBCCHHR 


Seek address for CP1 8 


CQ14B 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position for next entry 


CQ15 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Index entry to be written next 


CQ16 


08 


TIC 


CQ15 


00 







CQ17 


1D 


Write count, 
key, and data 


Area Y+18 


80 


DC 


8 


Write count, key,and data fields of 
normal track index entry 
ISLKEYAD points to key 


CQ18 


00 




Buffer N+8 
+RKP 


80 


DC 


KL 


CQ19 


00 




Area Y+26 


40 


CC 


10 



tSet sector to zero if RPS 
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CHANNEL PROGRAM 20-Variable Length Records (continued) 



Writes Track Index Entry(s) 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQ20 


08 


TIC 


CQ21 orCQ27 


00 







Transfer to CQ21 if normal and overflow 
entries are on the same track, or to 
CQ27 if normal and overflow entries are 
on different tracks 


CQ21 


1D 


Write count, 
key, data 


Area Y+36 


80 


DC 


8 


Write overflow index entry 
ISLKEYAD points to key 


CQ22 


00 




Buffer N+8 
+RKP 


80 


DC 


KL 


CQ23 


00 




Area Y+44 


40 


CC 


10 


CQ24 


08 


TIC 


CQT1 or 
CQ13or 
CQ25 or 
CQ27 


00 







Transfer to CQT1 if Write Validity 
Check is specified, or to CQ13 if CP18 
is to be executed next, or to CQ25 if 
overflow and dummy track index entries 
are on the same tracks , or to CQ27 if 
overflow and dummy track index entries 
are on different tracks 


CQ25 


1D 


Write count, 
key, data 


Area Y+54 


40 


CC 


8+KL+10 


Write count, key, and data of dummy 
index entry 


CQ26 


08 


TIC 


CQT1orCQ13 


00 







Transfer to CQT1 if Write Validity 
Check is specified, or to CQ13 if 
CP1 8 is to be executed next 


CQ27 


B1 


Search ID equal 
(MT) 


CQ30+3 


40 


CC 


5 


Index entries are split across tracks. 
Search for next physical track 


CQ28 


08 


TIC 


CQ27 


00 







CQ29 


08 


TIC 


CQ21 orCQ25 


00 







Transfer to write overflow track index 
entry (CQ21 ), or to write dummy track 
index entry (CQ25) 


CQ30 


MBBCCHHR 


Search argument for next track, if track 
entries are split across track boundary 


CQTO* 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Search for track index entry again 


CQT1* 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CQT2* 


08 


TIC 


CQT1 


00 








* Write Validity Check 
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CHANNEL PROGRAM 20-Variable Length Records (continued) 



Writes Track Index Entry(s) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQT3* 


08 


TIC 


CQTn 


00 







n=6— dummy index entry only 
n=5— normal and overflow index entries 
n=4-normal, overflow, and dummy 
index entries 


CTQ4* 


9E 


Read count, key, 
and data (MT) 




50 


CC,SK 





Read back track index entry (s) 


CTQ5* 


9E 


Read count, key, 
and data (MT) 




50 


CC,SK 





CTQ6* 


9E 


Read count, key, 
and data (MT) 




50 


CC,SK 





CTQ7* 


08 


TIC 


CQ13 


00 










"Write Validity Check 
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CHANNEL PROGRAM 20A 



Write a non-shared track of track index 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQO 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position for the track index entry 


CQ1 


31 


Search ID equal 


IOBASEEK+3 


40 


CC 


5 


Search for the Count Field of the record 
preceding the record to be written next 


CQ2 


08 


TIC 


CQ1 


00 






The count field contains the address of 
the CCW that TICs to CP18 when non- 
write check 


CQ3 


08 


TIC 


CQ4 


00 






TIC to the first write CCW to be 
executed, as follows: 

1. CQ4 

2. Resume Load write CCW (some CQ4) 

3. Non-shared last track of track index. 
The address of some CQ4 is stored in 
the count portion of this TIC (may 
be CQ4) 


One copy of CQ4 for each track index entry 


CQ4 


1D 


Write count, 
key, and data 


TISA+20or 
TISA+20+N 
(8+KL+10) 


40 


CC 


8+KL+10 


Write a track index entry 


For non-write checking, the following two CCW's are at the end of CP20A 




1B 


Seek head 


TISA+1 


40 


CC 


6 


Seek on the prime data track to be 
written 




08 


TIC 


CP18 


00 







TIC'toCP18 


For write checking, the following CCW is at the end of CP20A 




08 


TIC 


CP20C 


00 







TICtoCP20C 
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CHANNEL PROGRAM 20B 



Write a shared track of track index 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQO 


23 


Set sector 


ISLRPSSS+2 


40 


CC 


1 


Position for the next index entry 


CQ1 


31 


Search ID equal 


IOBASEEK+3 


40 


CC 


5 


Search for the count field of the record 
to be written next 


CQ2 


08 


TIC 


CQ1 


00 






The count field contains the address of 
the CCW that TICs to CP18 for non- 
write check 


CQ3 


08 


TIC 


CQ4 


00 






TIC to the first write key, data CCW to 
be executed, as follows: 

1. CQ4 

2. Resume Load write KD CCW 
(some CQ7) 


CQ4 


0D 


Write key, data 


TISA+20+8or 
TISA+20+8+N 
(8+KL+10) 


40 


CC 


KL+10 


Write the first track index entry on a 
shared track 


One copy of CQ5, CG6,and CQ7 for each remaining track index entry 


CQ5 


31 


Search ID equal 


TISA+20+N 
(8+KL+10) 


40 


CC 


5 


Search for the count field of the record 
to be written next 


CQ6 


08 


TIC 


CQ5 


00 







TICtoCQ5 


CQ7 


0D 


Write key, data 


TISA+20+8+ 
N (8+KL+10) 


40 


CC 


KL+10 


Write the key and data portion of a 
track index entry 


For non-write checking, the following two CCW's are at the end of CP20B 




1B 


Seek head 


TISA+1 


40 


CC 


6 


Seek on the prime data track to be 
written 




08 


TIC 


CP18 


00 







TICtoCP18 


For write checking, the following CCW is at the end of CP20B 




08 


TIC 


CP20C 


00 







TICtoCP20C 
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CHANNEL PROGRAM 20C 



Write check for CP20A and B 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQO 


03 


NOP/Set sector 


ISLRPSSS+2 


60 


CC+SILI 


1 


Position for the next index entry 


CQ1 


31 


Search ID equal 


IOBASEEK+3 


40 


CC 


5 


Search for the count field of the record 
to be written next 


CQ2 


08 


TIC 


CQ1 


00 




CQ9 


The count field contains the address of 
theCCWthatTICstoCP18 


CQ3 


08 


TIC 


CQ4 


00 






TIC to the first read CCW to be executed 
as follows: 

1. CQ4 

2. Resume Load read CCW (some CQ7) 

3. Read CCW for non-shared last track 
or shared track. The address of this 
CCW is stored in the count portion 
of this TIC (may be CQ4). 


CQ4 


0E 


Read key, data 


TISA+20+8 
orTISA+20+ 

8+N 
(8+KL+10) 


50 


CC and skip 


KL+10 


Read back a track index entry 


One copy of CQ5, CQ6, and CQ7 for each remaining track index entry. 


CQ5 


31 


Search ID equal 


TISA+20+N 
(8+KL+10) 


40 


CC 


5 


Search for the count field of the record 
to be written next 


CQ6 


08 


TIC 


CQ5 


00 







TICtoCQ5 


CQ7 


0E 


Read key, data 


TISA+20+8+ 
N (8+KL+10) 


50 


CC and skip 


KL+10 


Read back a track index entry 


CQ8 


1B 


Seek head 


TISA+1 


40 


CC 


6 


Seek on the prime data track to be 
written 


CQ9 


08 


TIC 


CP18 


00 







TICtoCP18 
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CHANNEL PROGRAM 21 



Write High Level Index and End of Data (EOD) Mark(s) 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CQ39A 


23 


Set sector 


ISLRPSSS+3 


40 


CC 


1 


Position for entry 


CQ40 


31 


Search ID equal 


Area Y 


40 


CC 


5 


Search for ID of index entry to be 
written with R=R-1 


CQ41 


08 


TIC 


CQ40 


00 






CQ42 


1D 


Write count, 
key, data 


Area Y 


80 


DC# 


8 


Write count field of current under entry 


CQ43 


00 




ISLKEYAor 
Area Y+62 


80 


DC 


KL 


ISLKEYAD is used for normal entry 
area Y+62 is used for dummy and 
inactive entry 


CQ44 


00 




Area Y+8 


00 
40 


CC (Write 
validity check) 


10 


Write data field of high level index entry 


CQ44A* 


03 
23 


NOP 
Set sector 


ISLRPSSS+3 


60 


CC,SLI 


1 


Position for entry 


CQ45* 


31 


Search ID equal 


Area Y 


40 


CC 


5 


Search for ID (CCHHR) of current 
index entry with R=R-1 


CQ46* 


08 


TIC 


CQ45 


00 







CQ47* 


1E 


Read count, 
key, data 




10 


SK 


KL+18 


Read back current high level index 
entry 



#CLOSE processing utilizes CP21 to write end of data marks in the prime data area and independent overflow area. ISL- 

area Y is initialized with the 'KDD' portion of the count field set to zero. The data chain bit is turned off. 
*Write Validity Check 
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CHANNEL PROGRAM 22A 



Read/Write data record — key and data, unblocked records 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CN1* 


B1 


Search ID 
equal (MT) 


CN6+3 


40 


CC 


5 


MT set off for 1st CP22 in chain 


CN2 


08 


TIC 


CN1 


XX 


CN2+4 used 
as buffer 
flags 





See description of CN2+4 and CN2+5 
below 


CN3 


OE 
OD 


Read key, data 
Write key, data 


CN4 


80 


DC 


KL 


SKIP bits set on in CN3 and CN4 for 
write check processing 


CN4 


06 
05 


Read data 
Write data 


Buffer 
address 
and offset 


40 


CC (off when 
end of chain) 


DL 


Fixed length records: the block size 
(DL) is constant so the count field is 
set at open time. 

Variable length records: the actual 
block size is set in the count field by 
the EOB routine each time this CP is 
executed. 


CN5 


08 


TIC 


NextCNI 


00 







TIC to next CP22 in chain if not last or 
not RPS 


88 




WIREADSC 


00 






If RPS and not last on track. TIC to 
RDCNT & RDSECTOR for ready only. 


CN6 


MBBCCHHR 


Set from W1 LPDR or link field in 
overflow record 


CN7 


Address buffer and offset 


Set from DCBBUFCB init. 



*lf RPS is present and this channel program is not chained from CP24, it will be preceded by a set sector and a TIC. The 
set sector and TIC are located in the work area. If the channel program is chained from CP24, the set sector will be per- 
formed in CP24. 

**W10SECT of channel program is writing. 

The following is a description of buffer flags at CN2+4 and CN2+5. 
CN2+4 



BIT 


1 






Buffer marked for PUTX 


1 


1 . . 




Overflow record 


2 


. 1 . 




KEY and data to be read 






. 




Data only to be read 


3 




. 1 




End of data buffer 


4 






1 . 


Input error 


5 






. 1 


Unwritable block 


6 








1 . Unreachable block 


7 

CN2+5 








Reserved 



BIT 



1 . 



End of track 
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CHANNEL PROGRAM 22B 



Read/Write data records— data only, unblocked records; all blocked records 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CN1* 


B1 


Search ID equal 
(MT) 


CN6+3 


40 


CC 


5 


MT is set for first CP22 in chain 


CN2 


08 


TIC 


CN1 


XX 


CN2+4 used 
as flags for 
buffer de- 
scription 





See description of CN2+4 and CN2+5 
below, CP22A 


CN3 


08 


TIC 


CN4 


80 


DC (ignored) 


KL 




CN4 


06 
05 


Read data 
Write data 


Buffer 
address 
and offset 


40 


CC (off when 
last in chain) 


DL 


Fixed length records: the block size 
(DL) is constant so the count field is 
set at open time. 

Variable length records: the actual 
block size is set in the count field by 
the EOB routine each time this CP is 
executed. 


CN5 


08 


TIC 


NextCNI 


00 







TIC to 1st CCW in next CP22 in the 
chain if not lost in chain or if not RPS 






WIREADSEC 








If RPS, last in chain, read and not last 
record on track. TIC to RDCNT and 
RDSECTOR. 


CN6 


MBBCCHHR 


Set from WILPDR or link field in 
overflow record 


CN7 


Address buffer and offset 


Set from DCBBUFCB 



*See note to CP22A. 
**W10SECT if channel program is writing. 
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CHANNEL PROGRAM 23 



Search hi-level indexes, track index, and data track for SETL K or KC 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CS1 


31 


Search ID equal 


W1IMBBCC+3 


40 


CC 


4 


Position read head to first index track 


CS1A 


08 


TIC 


CS1 


00 







CS1B 


69 


Search key high 
or equal 


Key address 


60 


CC, SLI 


KL 


Too far along index 


CS1C 


08 


TIC 


CS2 


00 







No 


CS1D 


03 
23 


NOP 
Set sector 


CS1D+5 


60 


CC, SLI 


1 


Set sector to zero if RPS 
Yes, position to index point. 


CS1E 


1A 


Read home 
address 




50 


CC, SK 


5 


Position to home address 


CS2 


E9 


Search key high 
or equal (MT) 


Key address 


40 


CC 


KL 


Key address passed in register 


CS3 


08 


TIC 


CS2 


00 







CS4 


06 


Read data 


CS6+7 


40 


CC (off for 
master indexes) 


10 


CC set on when read cylinder index; 
read data of current index entry 


CS5 


08 


TIC 


CS8 


00 









CS6 
CS7 


_M 

BBCCHHRF 


Address of next lower level index 


CS8 


P 


Seek track index 


CS7 


40 


CC 


6 


The seek op code (P) is set from the 
index entry 


CS80 


03 
23 


NOP 
Set sector 


CS80+5 


60 


CC, SLI 


1 


Starting CCW when only track index; 
position read head to R0 to track index 


CS9 


31 


Search ID equal 


CS7+2 


40 


CC 


5 


CS9A 


08 


TIC 


CS9 


00 







CS10 


92 


Read count (MT) 


W1WCOUNT 


40 


CC 


8 


Read count of current index entry 
(normal or overflow) 


CS11 


69 


Search key high 
or equal 


Key address 


40 


CC 


KL 


Key address passed in register 


CS12 


08 


TIC 


CS10 


00 









CS13 


06 


Read data 


CS17+7 


40 


CC 


10 


Read data of current index entry 
(normal or overflow) 


CS14 


92 


Read count (MT) 


W1WCNXDM 


40 


CC 


8 


Read count of next index entry 
(normal or overflow) 
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CHANNEL PROGRAM 23 (continued) 



Search hi-level indexes, track index, and data track for SETL K or KC 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CS15 


06 


Read data 


W1WDNXDM 


60 


CC, SLI 


10 


Read data of next index entry (normal 
or overflow) 


CS16 


08 


TIC 


CS19 


00 









CS17 


M 

BBCCHHRF 


Address of prime data or overflow track 
containing record 


CS18 


C19 


P 


Seek data track 


CS18 


40 


CC 


6 


The seek op code (P) is set from the 
index entry 


CS19A 


03 
23 


NOP 
Set sector 


CS19A+5 


60 


CC, SLI 


1 


Set sector to zero if RPS 
Position to start of track if RPS 


CS20 


31 


Search ID equal 


CS18+2 


40 


CC 


5 


Search to the first data record on track 


CS21 


08 


TIC 


CS20 


00 









CS22 


29 
69 


Search key equal 
Search key high 
or equal 


Key address 


60 


CC, SLI (on 
for KC) 


KL 


Search for desired record (29) or search 
for desired block (69) 


CS23 


08 


TIC 


CS25 


00 









CS24 


03 
22 


NOP 
Read sector 


00 
W1ISECT 


20 


SLI 


1 


Exit when record found 


CS25 


12 


Read count 


First CN6+3 


60 


CC, SLI 


5 


Read count (CCHHR) of record into 
first CP22; R set to 


CS26 


08 


TIC 


CS22 


00 
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CHANNEL PROGRAM 24 



Read track index entries 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CN8* 


31 


Search ID equal 


W1WCOUNT 


40 


CC 


5 


W1WCOUNT - count of current index 
entry; set from W1WCNXDM 


CN9 


08 


TIC 


CN8 


00 







CN10 


06 


Read data 


W1DCXDM 


40 


CC 


10 


Read data of current normal index entry 


CN11 


86 


Read data (MT) 


W1WOVFL 


40 


CC 


10 


Read data of current overflow index 
entry 


CN12 


92 


Read count (MT) 


W1WCNXDM 


40 


CC 


8 


Read count of next normal or dummy 
entry 


CN13 


06 


Read data 


W1WDNXDM 


40 


CC 


10 


Read data of next normal or dummy 
entry 


CN14 


1B 


Seek HH 


CN6+1 


40 


CC 


6 


Seek to track in W1LPDR 


CN14A 


03 
23 


NOP 
Set sector 


CN14A+5 


60 


CC, SLI 


1 


Set sector to zero 

Position to first record next track 


CN15 


08 


TIC 


CN1 


00 







Transfer to read or write the record 



*lf RPS is present this channel program will be preceded by a set sector- TIC located in the work area. 
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CHANNEL PROGRAM 25 



Read track index entries for SETL 1 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CN20* 


31 


Search ID equal 


W1IDAD 


40 


CC 


5 


Search to record at actual d.a. address 


CN21 


08 


TIC 


CN20 


00 







CN22 


0E 


Read key and 
data 


CN7+5 


60 


CC, SLI 


KL 


Read record key into 1st buffer 


CN23 


1B 


Seek head 


CN31+1 


40 


CC 


6 


Seek to beginning of track index 


CN23A 


33 
23 


NOP 

Set sector 


CN23A+5 


60 


CC, SLI 


1 


Set sector to zero 

Position to first record of next track 


CN24 


1A 


Read home 
address 


CN31 


50 


CC, SK 


5 


Position read head to start of track 


CN25 


E9 


Search key high 
or equal (MT) 


CN7+5 


40 


CC 


KL 


Serially search index tracks for index 
entry containing key 


CN26 


08 


TIC 


CN25 


00 







CN27 


06 


Read data 


W1WDCXDM 


40 


CC 


10 


Read data of current normal index 
entry 


CN28 


86 


Read data (MT) 


W1WOVFL 


40 


CC 


10 


Read data of current overflow index 
entry 


CN29 


92 


Read count (MT) 


W1WCNXDM 


40 


CC 


8 


Read count of next normal or dummy 
entry 


CN30 


06 


Read data 


W1WDNXDM 


00 




10 


Read data of next normal or dummy 
entry 


CN31 


MBBCCHHR 


Address of track index; set from lower 
with HH=0, R=1 



*lf RPS is present this channel program will be preceded by a set sector-TIC located in the work area. 
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CHANNEL PROGRAM 26 



Extension of CP23 to read overflow chains 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CS27* 


31 


Search ID equal 


W1IMBBCC+3 


40 


CC 


5 


Search to first record of overflow chain 


CS28 


08 


TIC 


CS27 


00 







CS29** 


69 


Search key high 
or equal 


Key address 


40 


CC 


KL 


SLI on when KC, search for desired 
record in chain 


CS30 


08 


TIC 


CS32 


00 









CS31 


03 


NOP 




20 


SLI 


1 


Exit when record found if RKP = 0, 
unblocked 


08 


TIC 


CN4 of buffer 


20 




1 


Read in record if RKP=0 or blocked 
format 


CS32 


06 


Read data 


CS34+7 


60 


CC, SLI 


10 


Read link field of overflow record 


CS33 


08 


TIC 


CS36 


00 









CS34 


M 

BBCCHHRF 


Address of overflow record 


CS35 


CS36 


P 


Seek 


CS35 


40 


CC 


6 


Seek overflow track containing next 
record in chain 


CS37 


31 


Search ID equal 


CS35+2 


40 


CC 


5 


Search for overflow record 


CS38 


08 


TIC 


CS37 


00 







CS39 


08 


TIC 


CS29 


00 










*lf RPS is present this channel program will be preceded by a set sector— TIC located in the work area. 
*Search key equal if RKP=0, RECFM=F and not SETL KH or SETL KDH. 



Appendix B: ISAM Channel Programs 295 



CHANNEL PROGRAM 31 A 



Reads the key of the last overflow track index entry into the Keysave area 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA1 


31 


Search ID equal 


IOBASEEK+3 


40 


CC 


5 


Search for the last normal track index 
entry 


CA2 


08 


TIC 


CA1 


00 






CA3 


9E 


Read count, 
key, data 




90 


DC, SK 


8 


Read last overflow track index entry 


CA4 


00 




KEYSAVE 
area 


80 


DC 


KL 


Read key of last overflow track index 
entry into KEYSAVE 


CA5 


00 






10 
50 


SK 

CC, SK is turned 

on if CP31B is 

executed 


10 
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CHANNEL PROGRAM 31B 



Reads the count and data of the last prime data block into the first buffer specified in the Buffer Control Table 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CA1 


1B 


Seek head 


CA6+1 


40 


CC 


6 


Seek to the head of the last prime 
data block 


CA2 


31 


Search ID equal 


CA6+3 


40 


CC 


5 


Search for the next to last prime data 
record 


CA3 


08 


TIC 


CA2 








CA4 


12 


Read count 


First buffer 


40 


CC 


8 


Read count of the last prime data block 
into the first buffer (buffer control 
table + 9) 


CA5 


06 


Read data 


First buffer 
+8 


00 




DL 


Read data of the last prime data block 
into the first buffer + 8 


CA6 


MBBCCHHR 


MBBCCHHR of DCBLPDA, R is set 
to R-1 
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CHANNEL PROGRAM 87 



Reads high level index into user work area (specified by DCBMSHD-this channel program is in module IGG0192P 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CZ1 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


Search for first entry of high level index 


CZ2 


08 


TIC 


CZ1 


00 







CZ3 


8E 


Read key, data 
(MT) 


DCBMSHI 


40 


CC 





Read it into the work area. There are 
several copies of CZ3. The channel 
program is executed as many times as 
needed to read in the entire index. 
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CHANNEL PROGRAM 123W 



Addendum to CP12A and CP12B or to CP13A and CP13B when write checking is specified 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CEAOO 


03 
23 


NOP 

Set sector 


IOBSECT 


60 


CC, SLI 


1 


Search for record or block again 


CEA 


31 


Search ID equal 




40 


CC 


5 


CEB 


08 


TIC 


CEA 


00 







CEE 


1E 


Read count, 
key and data 




10 


SK 





Read it back 
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CHANNEL PROGRAM 123WV 



Addendum to CP 12AV and CP 12BV when write checking is specified 


CCW 
No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


CEAOO 


03 
23 


NOP 
Set sector 


CEA00+5 


40 


CC 


1 


Set sector to zero 


CEAO 


31 


Search ID equal 


CDO 


40 


CC 


5 


Search for track capacity record (R0) 


CEA05 


08 


TIC 


CEAO 


00 







CEA1 


06 


Read data 




70 


CC, SK, SLI 


3 


Read capacity record 


CEA2 


08 


TIC 


CEDorCEA3 


00 







TIC to CED if the full track is being 
checked 


CEA3 


03 
23 


NOP 
Set sector 


IOBSECT+1 


40 


CC, SLI 


1 


Search for first data record written 


CEA 


31 


Search ID equal 


IOBSEEK+3 


40 


CC 


5 


CEB 


08 


TIC 


CEA 


00 







CED 


1E 


Read count, 
key, data 




90 


DC, SK 


8 


Read record back. 

The number of CEE-CEF sets equals 
DCBHIRPD, the CC flag is set off in 
the appropriate CCW depending on how 
many records are read 


CEE 


OE 


Read key and 
data 




50 


CC, SK 


KL+DL 


CEF 


1E 


Read count, key, 
and data 




90 


DC, SK 


8+KL+ 
DL 
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CHANNEL PROGRAM CLOSECCW(1) 



Reads format 2 DSCB— this channel program is in module IGG0192D 


cew 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


DXCCW1 


31 


Search ID equal 


DSCB format 
2 address 


60 


CC, SLI 


5 


Search for DSCB format 2 


DXCCW2 


08 


TIC 


DXCCW1 


00 







DXCCW3 


0E 


Read key and 
data 


DXDADDR 


00 




140 


Read format 2 DSCB into work area 
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CHANNEL PROGRAM CLOSECCW(2) 



Writes format 2 DSCB back in the VTOC-this channel program is in module IGG0192D 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


DX 
CCW1 


31 


Search ID equal 


DSCB format 
2 address 


60 


CC,SLI 


5 


Search for DSCB format 2 position 


DX 
CCW2 


08 


TIC 


DXCCW1 


00 







DX 

CCW3 


0D 


Write key and 
data 


DXDADDR 


40 


CC 


140 


Write format 2 DSCB back in VTOC 


DX 

CCW4* 


31 


Search ID equal 


DSCB format 
2 address 


60 


CC,SLI 


5 


Search to format 2 DSCB again 


DX 

CCW5* 


08 


TIC 


CCW4 


00 







DX 

CCW6* 


0E 


Read key and 
data 




10 


SK 


140 


Read back 



*Write Validity Check 
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CHANNEL PROGRAM VXCCW (1A) 



Reads to EOF or end of LPDA track for prime data-this channel program is in module IGG01920 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


VX 

CCW1 


31 


Search ID equal 


DS2LPRACH-3 


40 


CC 


5 


Search to the last prime data record 


vx 

CCW2 


08 


TIC 


VXCCW1 


00 







VX 

CCW3 


9E 


Read count, key, 
and data (MT) 


VXCCW6 


60 


CC,SLI 


8 


Read count field (normally, count of 
EOF) 


VX 
CCW4 


9E 


Read count, key, 
and data (MT) 


VXCCW7 


60 


CC,SLI 


8 


Executed when DS2LPRAD is incorrect 


VX 

CCW5 


08 


TIC 


VXCCW3 


00 









VX 

CCW6 


C C H H R KL DL DL 


Count field 


VX 

CCW7 


C C H H R KL DL DL 


Count field 
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CHANNEL PROGRAM VXCCW(1B) 



Reads to EOF for independent overflow— this channel program is in module IGG01920 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


VX 

CCW1 


31 


Search ID equal 


DS2LOVAD+-3 


40 


CC 


5 


Search to the last overflow record 


vx 

CCW2 


08 


TIC 


VXCCW1 


00 







VX 

CCW3 


9E 


Read count, key, 
and data (MT) 


VXCCW6 


60 


CC,SLI 


8 


Read count field (should be count of 
EOF) 


VX 

CCW4 


9E 


Read count, key, 
and data (MT) 


VXCCW7 


60 


CC,SLI 


8 


Executed when DS2LOVAD is incorrect 


VX 

CCW5 


08 


TIC 


VXCCW3 


00 









VX 

CCW6 


C C H H R KL DL DL 


Count field 


VX 

CCW7 


C C H H R KL DL DL 


Count field 
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CHANNEL PROGRAM VXCCW(2) 



Reads to end of track— this channel program is in module IGG01920 


ccw 

No. 


Command Code 


Address 


Flags 


Count 


Comments 


Hex 


Description 


Hex 


Description 


VX 
CCW4 


12 


Read count 


SAVEREG 


60 


CC, SLI 


8 


Read count of each record on track 


VX 

CCW5 


08 


TIC 


VXCCW4 


00 







CP will end with count of last record on 
track in SAVEREG 
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20 (fixed length records) 279-281 

20 (variable length records) 282-284 
20A 285 

20B 286 

21 288 
22A 289 
22B 290 

23 291-292 

24 293 

25 294 

26 295 
31A 296 
31B 297 
87 298 
123W 299 
123VW 300 

Channel programs 
BISAM 

flow -of- control (non write KN) 93 

flow-of-control (write KN) 94-95 

functions 89-92, 75 

modules 89 
load mode 

flow-of-control 39-40 

functions 38, 37 

modules 38 
scan mode 

functions 63-64 

modules 63 

queues 67 
Check routine-BISAM 
description 84 
flowdiagram 85 
Close phase executors and modules 
common 13-15 
BISAM 109 
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Close phase executors and modules (cont.) 

errors during 221, 222, 68 

flow-of-control 15 

load mode 42-44, 221, 231 

scan mode 68-69, 221 
COCR 

(see cylinder overflow control record) 
Codes 

appendage 217-218 

asynchronous 219 

exception (error) 221-222 
Common close 13 

channel programs used 301-302 

flow diagram 14 

module 13 
Common open 9-12 

channel programs used 303-305 

modules 9 
Count field 231 
CP 

(see channel programs) 
Cylinder index 

BISAM processing 94, 89 

definition 228 

direct access extents 165, 176, 195 

format 236 

load mode processing 39-40 
Cylinder overflow area 228 
Cylinder overflow control record (COCR) 

definition 228 

BISAM processing 95-105 

format 233 




Data control block (DCB) 

BISAM processing use 106-108, 75 

format 165-173 

initialization 

BISAM 70 

common 9 

load mode 20 

scan mode 46 
integrity feature 9 
load mode processing use 41 
scan mode processing use 67 
Data extent block (DEB) 

BISAM processing use 106-108 



format 181-182 

initialization 1 1 

load mode processing use 41 

scan mode processing use 67 
Data event control block (DECB) 

BISAM processing use 106, 87 

format 174-175 
Data set control block (DSCB) 

format 176-180 

use by open routines 9, 12 

use by close routines 13 
Data set organization 225-231 

adding records to data set 229 

indexes 227 

detail description 231-237 

overflow area 228 

prime data area 226 
DCB 

(see data control block) 
DCB work area 

BISAM 

format 207-208 
initialization 72 
pointers to 107-108 

load mode 

format 195-199 
pointers to 41 

scan mode 

format 200-206 
pointers to 67 
DCW 

(see DCB work area-BISAM) 
DEB 

(see data extent block) 
DECB 

(see data event control block) 
Deletion, record 

BISAM asynchronous code 219 

count fields tagged for deletion 171, 179 

processing 95-105 
Disable SVC 76, 78 
DSCB 

(see data set control block) 
DS2 

(see data set control block) 
Dummy index entries 

creation 36, 43 

format 231, 234, 236, 237 
Duplicate records 

error indications 217-218 
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processing 95-105 
Dynamic buffering routine-BISAM 
description 80, 75 
control block 185-187 
flow diagram 83 
initialization 7 1 
pointers to 107 



ECB 

(see event control block) 
Enable, BISAM I/O interruptions 75 
End-of -buffer (EOB) routine 

load mode 

description 34, 39-40 
fields used 189-192 
flow diagram 34 

scan mode 

description 55-56 
flowchart 144 
End-of-cylinder processing 

fields used 189-192 

flowcharts 39-40 
End-of-extent processing 

fields used 189-192 

flowcharts 39-40 
End-of- file (EOF) mark processing 95-105 
End-of-track processing 

fields used 189-192 

flowcharts 39-40 
End in dex entries, format 231 

cylinder 236 

master 237 

track 234 
EOB 

(see end-of-buffer routine) 
EOF 

(see end-of-file mark) 
Error codes 

BISAM 222 

QISAM 221 
Error descriptions 

duplicate record 95-105 

record length-BIS AM 78 

sequence error 31 

write K with read KU 78 
Error queue-BISAM 

format 108,207 



flowchart references 155 

use in processing 80, 86 
ESETL macro instruction 48 
ESETL routine-scan mode 

description 59 

flowchart 139 
Event control block 

BISAM 174 

load mode 183, 41 

scan mode 183, 67 
Exception codes 

BISAM 222 

QISAM 221 
EXCP 

BISAM 86,219 

load mode 36 

scan mode 61 
Executors 

(see open executors and close executors) 
Extents 176, 181, 160 
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Format, data set (see data set organization) 
Free queue-scan mode 

format 49 

flow diagram references 45, 52, 54, 56, 58, 60 

use in processing 48-61 
FREEDBUF macro instruction 80, 185 

(see also dynamic buffering routine) 
Full track index 

full track index write 18 

track index save area 210 




GET appendage routine-scan mode 

description 61-62 

module 63 

pointers to 67 
GET macro instruction 48, 221 
GET routine-scan mode 

description 53-54 

flowchart 134 

module 63 

pointers to 67, 165 
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High-level indexes 

BISAM processing 93,94 
definition 227,228 
format 231,234,236,237 
load mode processing 39-40 



Inactive index entries 

creation 14 

format 231 
Index 

(see cylinder, master, or track) 
Index location table-load mode 

format 193, 195 

initialization 37 

pointers to 41 
Input/output block (IOB) 

BISAM 

pointers to 107-108 

processing use 76-77, 106, 185-186 

queues 108, 207 

format 183 

channel program use 241 

codes 217-219 

load mode 41, 193 

scan mode 67, 200 
IOB 

(see input/output block) 
IOBBCT 

(see buffer control table) 
ISAM data set (see data set organization) 
ISL 

(see DCB work area-load mode) 




Levels of indexes 

description 225-228 
format 231-237 

Library, SVC 3 

Load mode 1 7 

channel programs 38 

descriptions flow of control 
close phase 42-43 
control block and work areas 
DCB work area 193-199,41 
flow diagrams 19, 32-36, 42 
open phase 17-28 
processing phase 30-41 

Locate mode processing 33 



39-40 



41 




Key save area-load mode 38, 41 



M=0 DEB extent 41,181 
Macro instructions 

(see GET, PUT, etc.) 
Macro-time routines 

(see privileged and nonprivileged) 
Master indexes 
format 237 

BISAM processing 93, 94 
direct access extents 165, 176, 193 
load mode processing 39-40 
MBBCCHHRFP 231 
Modules 159 
check 84 

dynamic buffering 80 
IGG01920 12, 26 

chart 119 
IGG01921 20 

chart 120 
IGG01922 12 
IGG01924 46 

chart 127 
IGG01928 46 

chart 128 
IGG01929 46 
IGG0192A 11 

chart 113 

IGG0192B 11 

chart 116 
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Modules (cont.) 

IGG0192C 12 

chart 118 
IGG0192D 23 

chart 123 
IGG0192E 23 
IGG0192F 25 
IGG0192G 25 
IGG0192H 72 
IGG0192I 72 
IGG0192J 75 
IGG0192K 73 
IGG0192L 73 
IGG0192M 73 
IGG0192N 75 
IGG0192O 73 
IGG0192P 72 
IGG0192Q 73 
IGG0192R 30 
IGG0192S 30 
IGG0192T 29 
IGG0192U 30 
IGG0192V 29 
IGG0192W 72 
IGG0192X 73 
IGG0192Z 75 
IGG01950 13,26 
IGGQ195D 28 
IGG0195G 27 
IGG0195T 28 
IGG0195U 28 
IGG0196D 26 
IGG0196G 27 
IGG019G0 88 
IGG019G1 88 
IGG019G2 88 
IGG019G3 88 
IGG019G4 88 
IGG019G5 88 
IGG019G6 88 
IGGQ19G7 88 
IGG019G8 88 
IGG019G9 88 
IGG019GA 37 
IGG019GB 37 
IGG019GC 37 
IGG019GD 37 
IGG019GE 37 
IGG019GF 37 
IGG019GL 88 
IGG019GM 88 
IGG019GN 88 



IGG019GO 88 
IGG019GV 87 
IGG019GW 87 
IGG019GX 87 
IGG019GY 87 
IGG019H3 87 
IGG019H7 87 
IGG019HB 63 

chart 134 
IGG019HD 63 
IGG019HF 63 
IGG019HG 63 
IGG019HH 63 
IGG019HI 63 
IGG019HJ 63 
IGG019HK 63 
IGG019HL 63 
IGG019HN 63 
IGG019HP 89 
IGG019I1 37 
IGG019I2 37 
IGG019I9 88 
IGG019IA 37 
IGG019IB 37 
IGG019IE 37 
IGG019IF 37 
IGG019IM 88 
IGG019IN 88 
IGG019IO 88 
IGG019IX 87 
IGG019IY 87 
IGG019IZ 87 
IGG019J0 87 
IGG019J3 87 
IGG019J6 87 
IGG019J7 87 
IGG019JC 84 
IGG019JI 80 
IGG019JJ 89 
IGG019JK 89 
IGG019JL 89 
IGG019JM 89 
IGG019JN 89 
IGG019JO 89 
IGG019JP 89 
IGG019JQ 89 
IGG019JR 89 
IGG019JS 89 
IGG019JT 89 
IGG019JU 89 
IGG019JV 87 
IGG019JW 87 
IGG019JX 87 
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Modules (cont.) 

IGG02028 43 

IGG02029 68 

IGG0202A 109 

IGG0202D 13 
chart 132 

IGG0202I 43 

IGG0202J 43 

IGG0202K 43 

IGG0202L 43 

IGG0202M 43 
Move mode processing 31 



description 227 
format 231-235 




N/2 buffers 55,57 
New high key records 

BISAM 94, 100402 

load mode 31 
Nonprivileged macro-time routine-BISAM 

description 78-79 

flow diagram 79, 86 

modules 87 

pointers to 107 
Normal track index entry 

description 227 

format 231-234 




Organization, data set 

(see data set organization) 
Open phase executors and modules 

BISAM 74-75 

common 9-12 

load mode 1748 

scan mode 45-46 
Overflow records and chains 

BISAM processing 93-94 

description 228 

format 235 

scan mode processing 47-66 
Overflow track index entry 




Padding records 43 
PF-bit 191 
Phase 

(see open, close, or processing) 
Pointer diagrams 

BISAM 106-108 

load mode 41 

scan mode 67 
Prime data area 

adding records to 229 

pointers to 39 
Prime data track, shared 

(see shared track) 
Privileged macro-time routine-BISAM 

description 76-78 

flow diagrams 77,86 

modules 87 

pointers to 107 
Processing phase 

BISAM 75 

load mode 30 

scan mode 47 
PUT appendage 

(see appendage routines-load mode) 
PUT macro instruction 30 

exception codes set 221 
PUT routine-load mode 

description 31-33 

flow diagrams 32 

pointers to 41 
PUTX appendage 

(see appendage routines scan mode) 
PUTX macro instruction 47 

exception codes set 221 
PUTX queue-scan mode 

format 49, 67, 200 

flow diagram references 56, 60 

use in processing 48-51 
PUTX routine-scan mode 

description 59 

flowchart 136 

pointers to 67 
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QISAM modes 

(see load mode and scan mode) 
Queues 

BISAM load mode 41 

scan mode 49, 50, 67 
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Reopen data set 

(see resume loading) 
Read appendages 

(see appendage routines-BISAM) 
READ macro instructions 70 

exception codes set 222 
Read queue-scan mode 

format 49,67 

flow diagram references 52, 54, 56, 58, 60 

use in processing 47-59 
RELSE macro instruction 
RELSE routine 

description 61 

flowchart 136 

pointers to 67 
Resume loading 25 

channel programs 38 

initialization 26-27 
Rotational position sensing 

devices 5 

identification in DEB 1 1 

start I/O appendages 4-5 
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Scan mode 

channel programs 

close phase 68 

control blocks and work areas 66-67 

DCB work area 200-206, 67 

flowcharts 134-151 

open phase 45 

processing phase 47 



queues 49, 50, 67 
Schedule routine-scan mode 

description 57 

flowchart 140 

pointers to 67 
Scheduling of BISAM 

channel programs 76-78 
SETL macro instruction 48 

exception codes set 221 
SETL routine-scan mode 

description 5 1 

flowchart 137 

pointers to 67 
Shared track 

channel programs used 63, 39-40 

fields used 
BCB 191 
DCB 171 

DCB work area (load) 195 
DSCB 178 

initialization 30 

index format 234 

processing 39-40 
Stages of open and close executors 3, 6 
Status indicators 

buffers-load mode 189 

DCB 171 

DSCB 179 

scan mode 201 
SYNAD macro instruction 

(see synchronous error routine) 
SYNADAF macro instruction 84 
Synchronous error routine 

address 168 

BISAM use 84 

load mode use 31,42 

scan mode use 51-61,68 




T-bit 191 
TISA 

(see Track index save area) 
Track index 

BISAM processing 93-106 

description 227 

format 231-234 

load mode processing 39-40 
Track Index Save Area (TISA) 210 
Track, shared 

(see shared track) 
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Unit control block (UCB), pointers to 41, 67 
Unreachable block error 222 
Unscheduled queue-BISAM 

format 108,208 

pointers to 108 

use in processing 75, 184 
Update processing-BISAM 93, 75 
Update queue-BISAM 

format 108, 208 

pointers to 108 

use in processing 75 
User queue-scan mode 

format 49, 67, 200 

flowchart references 54, 56, 60 

use in processing 48-51 




WAIT macro instruction-BISAM 70 
Write appendages 

(see appendage routine-BISAM) 
WRITE macro instructions 70 

exception codes set 201 
WRITE K processing 73,93 

channel programs 89 
flow of control 94-105 

differing methods of adding records to a data 
set 89-90,218,219 
Write queue-scan mode 

format 49, 67, 200 

flowchart references 51, 54, 56, 60 

use in processing 48-51 
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